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ABSTRACT 


A  transient  three-dimensional  heat  conduction  code  was  devel¬ 
oped  using  finite  differences.  A  stability  restriction  on  the  time  step 
was  avoided  using  a  technique  proposed  by  Brian.  Computations  from 
the  code  were  validated  using  both  the  explicit  technique  and  an 
available  closed-form  solution  for  small  times.  The  maximum  error  was 
found  to  be  within  0.019  percent  for  an  llxllxll  grid  and  time 
step  of  17.117  seconds.  The  total  CPU  time  to  carry  out  the  computa¬ 
tions  up  to  3,600  seconds  using  Brian’s  technique  was  six  times  that 
required  for  the  explicit  technique  with  the  same  time  step  of  17.117 
seconds.  However,  as  the  time  step  was  increased  without  altering  the 
geometry,  the  CPU  time  using  Brian’s  technique  decreased  and  was 
less  than  that  used  in  the  explicit  technique  for  time  steps  larger  than 
110  seconds.  The  validated  code  was  also  used  in  the  analysis  of  the 
transient  thermal  response  of  a  component  on  an  orbiting  spacecraft. 
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THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed  in 
this  research  may  not  have  been  exercised  for  all  cases  of  interest. 
While  every  effort  has  been  made,  within  the  time  available,  to  ensure 
that  the  programs  are  free  of  computational  and  logic  errors,  they 
cannot  be  considered  validated.  Any  application  of  these  programs 
without  additional  verification  is  at  the  risk  of  the  user. 


iv 


TABLE  OP  CONTENTS 


l.  INTRODUCTION . 1 

A  STATEMENT  OF  PROBLEM . 1 

B  OBJECTIVES . 2 

II.  DEVELOPMENT  OF  MODEL . 3 

A  MODEL  CONDmONS . 3 

B  EXPLICIT  TECHNIQUE . 4 

1 .  Derivation  of  Nodal  Temperature  Equations . 4 

2.  Restrictions  on  Time  Step  in  the  Explicit  Technique . 7 

3.  Numerical  Calculations . 9 

C  BRIAN’S  TECHNIQUE . 9 

1 .  Derivation  of  Nodal  Temperature  Equations . 11 

2.  Solution  of  the  Nodal  Temperature  Equations . 1 7 

3.  Numerical  Calculations . 1 8 

m.  VALIDATION . 20 

A  SELECTED  GEOMETRY  AND  CONDITIONS . 2  0 

B  NUMERICAL  COMPUTATIONS . 22 

C  VALIDATION  COMPUTATIONS . 24 

IV.  APPLICATIONS . 35 

A  GENERAL . 35 


B  ORBITING  SATELLITE  COMPONENT 


35 


1.  Geometry  and  Initial  Conditions . 35 

2.  Numerical  Calculations . 4 1 

V.  RESULTS . 45 

VI.  CONOUSaiONS . 46 

VII.  RECOMMENDATIONS . 4  7 

APPENDIX  A  EXPLICIT  TECHNIQUE  NODE  EQUATIONS  . 48 

APPENDIX  B  BRIAN’S  TECHNIQUE  NODE  EQUATIONS . 57 

APPENDIX  C  PROGRAM  EXPLICIT . 8  5 

APPENDIX  D  PROGRAM  BRIAN . 1 07 

APPENDIX  E  PROGRAM  VALID . 1 87 

LIST  OF  REFERENCES . 191 

INITIAL  DISTRIBUTION  LIST . 1 92 


vi 


LIST  OF  TABLES 


1  Parameters  Used  in  Validation  Runs . 2 1 

2  Parameters  Used  in  Orbiting  Satellite  Application . 40 


vii 


LIST  OP  FIGURES 


1  Left  Surface  of  Rectangular  Block  Used  in  the  Model . 5 

2  Flow  Chart  for  Program  EXPLICIT . 10 

3  Flow  Chart  for  Program  BRIAN . 1 9 

4  Rectangular  Model  Showing  Boundary  Conditions  Used  in 

Validation  Runs . 2 1 

5  Flow  Chart  for  Program  VALID . 23 

6  Temperature  Difference  Versus  Time  for  Time  Increment  of 

17.117  Seconds  with  Distance  of  1  Meter  Into  Block . 25 

7  Temperature  Difference  Versus  Time  for  Time  Increment  of 

4.279  Seconds  with  Distance  of  1  Meter  Into  Block . 26 

8  Temperature  Difference  Versus  Time  for  Time  Increment  of 

17.117  Seconds  with  Distance  of  0.4  Meters  Into  Block . 27 

9  Temperature  Difference  Versus  Time  for  Time  Increment  of 

4.279  Seconds  with  Distance  of  0.4  Meters  Into  Block . 28 

1 0  Temperature  Difference  Versus  Time  for  Time  Increment  of 

17  117  Seconds  on  Left  Surface  of  Block . 29 

1 1  Temperature  Difference  Versus  Time  for  Time  Increment  of 

4.279  Seconds  on  Left  Surface  of  Block . 30 


12  Temperature  Difference  Versus  Time  for  Time  Increments  of 

17.117  and  120  Seconds  with  Distance  of  1  Meter  Into  Block....  31 

13  Temperature  Difference  Versus  Time  for  Time  Increments 


of  17.117  and  120  Seconds  with  Distance  of  0.4  Meters 

Into  Block. . 32 

14  Temperature  Difference  Versus  Time  for  Time  Increments 

of  17. 1 17  and  120  Seconds  on  Left  Surface  of  Block . 33 


viii 


1 5  Component  on  a  Satellite  in  Circular  Orbit . 37 

16  Geometry  Used  in  Determining  Geometric  Factor  for  Earth 

Thermal  Radiation . 38 

17  Geometry  Used  in  Determining  Geometric  Factor  for  Solar 

Reflected  Radiation . 39 

1 8  Temperature  Variation  of  the  Top  Surface  Center  Node . 42 

1 9  Temperature  Variation  of  the  Top  Surface  Center  Node . 43 

2  0  Geometry  of  Rectangular  Model . 49 

2 1  Geometry  of  Rectangular  Model . 58 


ix 


LIST  OF  SYMBOLS 


Symbol  Description 

a  albedo  coefficient 

All  J  k  coefficient  associated  with  T*t  k  in  Brian’s  technique 

A2tJ  k  coefficient  associated  with  T*^l  k  in  Brian’s  technique 

A3, ^ k  coefficient  associated  with  T"*k_,  in  Brian’s  technique 

B2(jk  coefficient  associated  with  T*  in  Brian’s  technique 

B2)Jk  coefficient  associated  with  T*  *k  in  Brian’s  technique 

B3(  J  k  coefficient  associated  with  T"*k  in  Brian’s  technique 

Bi  Biot  number 

C  specific  heat  of  material 

C,jJk  coefficient  associated  with  T*,  k  in  Brian’s  technique 

C2tJ  k  coefficient  associated  with  T*^,  k  in  Brian’s  technique 

C3lJ  k  coefficient  associated  with  T"*k+1  in  Brian’s  technique 

Csa  solar  aspect  coefficient 

d  sum  of  satellite  altitude  and  radius  of  earth 

Ditjk  coefficient  associated  with  T*  simultaneous  equations  in 
Brian’s  technique 

Da  k  coefficient  associated  with  T**  simultaneous  equations  in 
Brian’s  technique 

^3t.J.k  coefficient  associated  with  Tn+1  simultaneous  equations  in 

Brian’s  technique 


x 


ALBEDO 


r 

SOLAR 


rate  of  energy  transfer  into  a  control  volume  from  albedo 
flux 

rate  of  energy  transfer  into  a  control  volume  from 
conduction 

rate  of  energy  transfer  into  a  control  volume  from 
convection 

rate  of  energy  transfer  into  a  control  volume  from  earth 
thermal  radiation 

rate  of  energy  transfer  into  a  control  volume  from  imposed 
flux 

rate  of  energy  generation 
rate  of  energy  generation  per  unit  volume 
rate  of  energy  transfer  into  a  control  volume 
rate  of  energy  transfer  out  of  a  control  volume 

rate  of  energy  transfer  into  a  control  volume  from  radiation 
heat  transfer 

rate  of  energy  transfer  into  a  control  volume  from  solar 
flux 

rate  of  increase  of  stored  within  a  control  volume 

geometric  factor  for  albedo  flux 

geometric  factor  for  earth  thermal  radiation 

Fourier  number 

heat  transfer  coefficient 

x-coordinate  of  node 

y-coordinate  of  node 

z-coordinate  of  node  thermal  conductivity  of  material 


xi 


p 

q" 

Ri 

R2 

T. 

-pn 

1 

T 
T  * 

'p  *  * 

'pn+ 1 
Ui 

U2 

U3 

U4 

U5 

Yi 

a 

At 

Ax 

Ay 

Az 

e 


period  of  revolution  for  earth  satellite 
imposed  heat  flux 


ambient  temperature 
temperature  at  previous  time  level  n 

temperature  at  half-time  step  interval 

temperature  at  n  +  \  time  level  in  the  x-direction 

temperature  at  n  +  p  time  level  in  the  y-direction 

temperature  at  current  time  level 

R1F0 

R2F0 

2RiFo 

2R2Fo 

2Fo 

FoAx2/k 

solar  absorptivity 
time  increment 

distance  increment  in  x-direction 
distance  increment  in  y-direction 
distance  increment  in  z-direction 
emissivity;  absorptivity  of  earth  flux 
gravitational  constant 


xii 


p  mass  density 

a  Stefan-Boltzmann  constant 

0s  solar  flux 

<(>E  earth  thermal  radiation  flux 


The  subscripts  below  have  the  following  meaning: 

1  left  face 

2  right  face 

3  bottom  face 

4  top  face 

5  front  face 

6  back  face 


Xi 

-2FooeiRiAy/k 

X2 

-2Foa£2RiAy/k 

X3 

-2Foa£3R2Az/k 

X4 

-2FoCT£4R2Az/k 

X5 

-2Foo£5Ax/k 

X6 

-2Foa£6Ax/k 

Vi 

FoBijRj 

V2 

1 

FoBi2  r; 

V3 

FoBi3Rj 

V4 

FoBi  4  R] 

V5 

FoBis 

V6 

FoBi6 

Wi 

2FoR,^(q"  + 

aiCSA,4>s+ 


xiii 


w2  2FoR  ,^(q';  +  e2FE  (|>E  +  aiCSA^s+  a2aFA  <(>5) 

W3  2FoR2^-(q"  +  e3FE<>E+  a3C^s+  <*3^*5) 

W4  2FoR2^-(qw4  +  e4FE4>E  +  a4CsA4<j>s+  a4aFA0s) 

W5  2Fo^(q';  +  e5FE<|)E  +  a5CSA54>5  +  a5aFA<j)s) 

W6  2Fo^(q';  +  e6FE<j>E+  a6CsA6<{>s+  a6aFA  (jg 


xiv 


ACKNOWLEDGMENTS 


The  author  would  like  to  express  his  deep  gratitude  to  Assistant 
Professor  Y.  Joshi,  his  thesis  advisor,  for  his  guidance  and  advice  in 
the  endeavor. 


xv 


I.  INTRODUCTION 


A.  STATEMENT  OF  PROBLEM 

Three-dimensional  transient  heat  conduction  computations 
involving  finite  difference  techniques  can  be  costly  and  time  consum¬ 
ing.  In  the  explicit  technique,  there  is  a  maximum  time  increment 
that  can  be  used  before  the  solution  becomes  unstable  [Ref.  1].  This 
time  increment  results  from  an  upper  limit  on  the  allowable  values  of 
the  Fourier  number  [Ref.  2].  The  implicit  technique,  on  the  other 
hand,  requires  more  complicated  computations  than  the  explicit 
technique  due  to  matrix  inversion  operations  [Ref.  2J.  Even  the  stor¬ 
age  capability  of  a  modern  computer  can  be  taxed  when  dealing  with 
storage  and  manipulation  of  very  large  matrices  [Ref.  3],  Both  the 
explicit  and  implicit  techniques  can  become  expensive  when  a  large 
number  of  nodes  is  required  [Ref.  4]. 

For  two-dimensional  transients,  an  alternative  technique  is  the 
alternating  direction  implicit  (ADI)  method.  Calculations  at  each  time 
step  require  only  the  handling  of  tridiagonal  matrices  [Ref.  5).  A 
direct  extension  of  the  ADI  technique  to  three-dimensional  problems, 
however,  has  been  found  to  have  only  conditional  stability  [Ref.  5[.  A 
different  algorithm  by  Brian  is  unconditionally  stable  and  still  requires 
the  handling  of  only  tridiagonal  system  of  equations,  thus  avoiding  the 
more  complex  matrix  manipulation  of  the  implicit  approach  [Ref.  3J. 
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B.  OBJECTIVES 


The  objectives  of  this  study  were: 

1.  To  develop  a  FORTRAN  computer  program  employing  Brian’s 
technique  for  three-dimensional  transient  heat  conduction. 

2.  To  validate  the  FORTRAN  computer  program  using  the  explicit 
technique  with  identical  geometric  configuration,  boundary,  and 
initial  conditions.  Comparisons  with  closed-form  solutions  avail¬ 
able  for  a  semi-infinite  geometry  were  also  made. 

3.  To  employ  the  above  technique  in  the  application  of  temperature 
computations  involving  an  orbiting  satellite. 

This  study  was  also  intended  to  be  a  basis  for  future  satellite  heat 
transfer  analysis  and  computations  involved  with  Project  Orion,  the 
Naval  Postgraduate  School’s  multi-disciplinary  space  research 
program. 

All  objectives  were  achieved. 
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II.  DEVELOPMENT  OF  MODEL 


A.  MODEL  CONDITIONS 

The  model  is  a  three-dimensional  rectangular  block  with  geomet¬ 
ric  dimensions  expressed  in  Cartesian  coordinates.  A  numerical  tem¬ 
perature  solution  only  permits  the  determination  of  the  temperature 
distribution  at  discrete  points  or  nodes  [Ref.  2].  The  method  of  finite 
differences  requires  that  a  nodal  equation  be  written  for  each  node  in 
the  block.  The  number  of  nodes  in  any  coordinate  direction  is  based 
on  the  distance  increment  in  the  same  direction. 

The  nodal  temperature  equation  for  each  node  was  obtained  using 
a  conservation  of  energy  equation  within  a  control  volume.  Incopeia 
and  DeWitt  [Ref.  2]  present  the  general  form  of  the  conservation  of 
energy  equation  as 


T?  —  P 
IN  ^  OUT 


+  ^  GEN  ^ 


ST 


(1) 


The  nodal  temperature  equations  were  developed  using  equation  1.  In 
the  following  sections,  an  equation  for  a  node  on  the  left  surface  of  the 
rectangular  block  away  from  corners  and  edges  is  derived  for  both  the 
explicit  and  Brian  techniques.  Equations  for  all  other  nodes  are 
derived  in  an  identical  fashion.  The  explicit  technique  equations  are 
tabulated  in  Appendix  A  and  the  Brian  technique  equations  are  tabu¬ 
lated  in  Appendix  B. 


B.  EXPLICIT  TECHNIQUE 

1.  Derivation  of  Nodal  Temperature  Equations 

Figure  1  shows  the  left  surface  of  the  rectangular  block  with 
associated  boundary  conditions.  Equation  1  is  rewritten  assuming  that 
all  the  energy  components  are  into  the  control  volume  as 


E  +  E-t...  -  E 


IN 


GEN 


ST 


(2) 


where  the  energy  generation  term  is  assumed  to  be  zero. 

Using  finite  difference  notation,  the  energy  storage  term  is 


E 


ST 


Ay 

pC  Ax-^-Az 


n+l  _  ^,n 
tj.  k  1  I.J.k 

At 


\ 

) 


(3) 


The  energy  inflow  term.  EIN,  is.  in  general,  composed  of  convection, 
conduction,  radiation,  and  imposed  heat  flux  terms.  For  the  develop¬ 
ment  of  the  explicit  technique,  the  radiation  term  was  neglected.  In 
the  explicit  technique,  all  involved  nodal  temperatures  on  the  left  side 
of  equation  2  are  evaluated  at  the  prior  time  step.  The  convection 
term  is  thus 

^ conv  =  k  Ax  Az  (T„  -  Tlj  (4) 
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i,j.k+l 


.♦jLJ.kv 
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V  2  . 


i.J.k-1 


Figure  1.  Left  Surface  of  Rectangular  Block  Used  in  the  Model 

The  net  conduction  term  will  have  contributions  from  all  three  coor¬ 
dinate  directions  and  is 

'-r*n  ,  'p11  __  QT*n  T*n  _ Tn 

E  -  kAyAz  1-1  J  k  H1J  k  1J-  +  kAxAz— — _ ^ 

^cond  k  2  Az  Ax  KAXAZ 


+  kAx 


Ay  +T"j,k+1  2T"Jk 


The  flux  term  will  be 


e™  =q'^z 


Substituting  equations  3  through  6  into  equation  2  produces 
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Tn  +  Tn  -  2T°  t”  _t” 

k^L  — £±i - —  +  kAxAz— '|k 

2  Ax  Ay 


+  kAx 


Ay  +T"j  k+1  -2T”J  k 


Az 


+  kAxz(T«-TntJk)  (7) 


(rpH+l  mQ  ^ 

1  l.j.k  ”  1  l.j.k 
~ 


At  ) 

The  temperature  at  the  next  time  level,  n+1,  is  next 
expressed  in  terms  of  temperatures  at  the  previous  time  level,  n.  To 


accomplish  this,  terms  in  equation  7  are  rearranged. 


Multiplying  each  term  in  equation  7  by 


Ax 


kAyAz 


yields 


Kn.,.  +n1J.l  -  2t:j + 

2 

+Kf-)s(T").k-.+T"1.,.1-2T:,o 


(8) 


+  kAxw(T-  -T".0 + q"k^  -  -K.0 


Equation  8  is  simplified  using  Biot  and  Fourier  numbers, 

which  are  written  as  j^-Ax  ant*  pCAx^  ’  resPectivety-  T^e  terms 
2  2  2  1 

’  anc*  are  i<^enti^iec^  as  Ri»  r2.  and  R*.  respec¬ 

tively.  Equation  8  now  becomes 
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(9) 


KT"-..i.u  +t:.,o.v  -  2T;,k)  +  R,(T;,.,k  -T”  .k) 


+  TR(T"J.k„+T”Jk.1-2T”Jk) 

+  BiR  |(T. -T"Jk)  +  q"R,^  =  2k(T"'k  -  TjJ 

Rearranging  terms,  the  temperature  at  the  current  time  level  is 
expressed  as 


■C  -  +  t;,  J  k  -  2T”  k)  +  2F.R,(T"kl„ -  T”  „) 

+  2F0R!(T"Jk^,+T"J  k<|  -  2T”Jk)  ( 1 0) 

+  2Ft,B,R[(T.-T"Jk)  +2F0R,q"^- 


In  a  similar  manner,  the  temperature  equations  for  each  node 
are  derived. 

2.  Restrictions  on  Time  Step  in  the  Explicit  Technique 

In  the  derivation  of  the  explicit  technique  equations,  the 
Fourier  number  was  expressed  as 

t-.  kAt 

F°-pCAx2  (ID 

The  stability  of  the  temperature  solution  is  dependent  on  the  time 
increment  [Ref.  2].  Rearranging  equation  10  to  isolate  the  node  of 
interest  at  both  the  current  and  previous  time  levels  yields 


7 


"C  =  F°(T"-.J.t  +  T"*..).0  +  2FoR  +  FoR2(Tuu-,  +TjiW) 


+  2FoB  (R[T„  +  2FoR,q' 


Ay 


(12) 


+  (l- 


2Fo  -  2FoR  j  -  2FoR2  -  2FoBiR  iy*  n  k 


ik,, 


The  coefficient  associated  with  the  previous  time  level  at  the 
node  of  interest  must  be  greater  than  or  equal  to  zero  [Ref.  2].  This 
implies 


1  -  2Fo 


(l  +R5  +  R2  +  BiR;)^0 


(13) 


Rearranging  terms,  it  follow  that,  for  stability. 


Fo  £ 


1 


*(l  + 


R,  +R2  +BiRaJ 


(14) 


Limitations  on  Fo  were  derived  for  each  different  node.  The  maximum 
allowable  Fo  was  chosen  as  the  least  of  all  these  values.  Since  the 
Fourier  number  is  dependent  on  At,  Ax,  and  material  properties,  it 
follows  from  equation  1 1  that  the  maximum  time  increment  will  be 
dependent  on  the  distance  increment.  As  Ax  decreases,  the  maximum 
time  increment  must  also  decrease  to  have  equation  14  hold  true 
[Ref.  1[. 
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3.  Numerical  Calculations 

A  computer  program  (program  EXPLICIT)  was  written  to 
evaluate  the  transient  temperature  distribution  within  the  block  using 
the  explicit  technique.  Figure  2  is  a  flow-chart  description  of  the 
program.  A  complete  listing  of  program  EXPLICIT  is  provided  in 
Appendix  C. 

C.  BRIAN  S  TECHNIQUE 

The  Brian  technique  provides  unconditional  stability,  allowing 
large  time  increments  for  transient  three-dimensional  computations 
[Ref.  3].  As  mentioned  earlier,  the  explicit  and  fully  implicit  tech¬ 
niques  may  become  unsuitable  for  computations  involving  a  large  num¬ 
ber  of  nodes  or  long  transient  times.  The  explicit  technique  relies  on 
small  time  increments  for  stability,  thus  increasing  the  amount  of 
computer  time  required  for  calculations  [Ref.  5[.  The  implicit  tech¬ 
nique  requires  inverting  large  matrices  that  may  create  problems  with 
storage  capability  and  computer  time  [Ref.  4). 

Another  possible  technique,  the  alternating  direction  implicit 
(ADI),  is  applicable  to  both  two-  and  three-dimensional  problems. 
While  the  ADI  method  is  unconditionally  stable  for  two-dimensional 
cases,  instability  occurs  for  large  time  increments  in  three-dimen¬ 
sional  problems  [Refs.  4.  5]. 

The  Brian  technique  modifies  the  ADI  method  to  provide  uncon¬ 
ditional  stability  and  minimize  computer  time  [Ref.  31. 


♦  t 


Figure  2.  Flow  Chart  for  Program  EXPLICIT 


1.  Derivation  of  Nodal  Temperature  Equations 

Figure  1  shows  the  left  surface  of  the  rectangular  block  with 
associated  boundary  conditions.  Equation  2  is  again  the  starting  point 
for  nodal  temperature  equation  derivation  and  is 

^  IN  +  ^GEN  —  ^  ST  (2) 

where  the  energy  generation  term  is  again  assumed  to  be  zero. 

The  nodal  temperature  equation  derivation  for  Brian’s  tech¬ 
nique  uses  half-time  steps  for  each  coordinate  direction.  This  differs 
from  the  explicit  technique,  in  which  a  whole-time  increment  is  used 
and  spatial  coordinate  direction  is  not  considered. 

In  Brian’s  technique,  the  first  half-time  level,  n  +  ^ ,  treats 

temperatures  in  the  x  direction  as  unknown  with  temperatures  in  the 
y  and  z  directions  known  from  the  previous  time  level,  n.  Solving  a 
tridiagonal  system  of  simultaneous  equations,  the  temperatures  at  the 
n  +  ~  level  are  determined. 

Temperatures  in  the  y  direction  are  then  determined  using 
x-direction  temperatures  at  the  n  +  j  time  level  and  z-direction  tem¬ 
peratures  at  the  M  time  level.  Similarly,  temperatures  in  the 
z-direction  at  the  current  n+1  time  level  are  determined  using  n  +  \ 

temperatures  from  the  x  and  y  directions. 

The  above  procedure  is  demonstrated  for  a  node  on  the  left 
surface  away  from  comers  and  edges. 


The  energy  storage  term  is 


Ay 

Ejy,.  =  pC  Ax~2~Az 


f  n+i 

m 

1  LJ.k  _  1  i.J.k 

At 

2 


(15) 


The  energy  inflow  term.  E 1N .  is  composed  of  convection,  conduction, 
radiation,  and  any  imposed  external  heat  fluxes.  As  a  first  step,  only 
the  nodal  temperatures  associated  with  heat  conduction  and  energy 
storage  in  the  x-direction  are  evaluated  at  the  n  +  j  time  level.  The 

convection  term  is  thus 


Econv  =  hAxAz(T_  -T"Jk) 


U6) 


The  net  conduction  term  will  have  contributions  from  all  three  coor¬ 
dinate  directions  and  is 


n+7 


n+i  n+-j 

r-  ,  Ay  Ti-ij.k  +  Ti+i.j.k“2Ti.j.k  ,  4  ,  *tj+i.k  *  tj.k 

Ecom  =  k-g-Az - S - +  kAxAz - — - 


+  kAx 


__ n  _n  -  _n 

Ay  ^i.j.k-i  +^i.j,k+i  ~2^i.j.k 
2  Az 


(17) 


The  radiation  term,  assuming  extensive  surroundings,  will  be 

^  rad  ~  oeAxAz(T_  ~  TlJ  k^)  (18) 

For  applications  involving  an  orbiting  spacecraft,  additional  input  flux 
terms  need  to  be  considered.  These  include  the  solar  flux,  the 
infrared  emission  from  the  earth,  and  the  reflected  component  of  the 
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solar  flux  from  the  earth’s  atmosphere,  the  albedo.  The  solar  flux  term 
will  be 


Eschar  =  AxAzaC^ 
The  reflected  solar  flux  (albedo)  term  will  be 

E  albedo  =  AxAzFAaa<i>s 
The  earth  flux  term  will  be 

EEAIrm  =  AxAzFe£4,e 
The  imposed  heat  flux  term  will  be 

Eflux  =  AxAzq" 


(19) 


(20) 


(21) 


(22) 


Substituting  equations  (15)  through  (22)  into  equation  2  yields 

n+i  n+i  n+i 

T  2  4-  T  a  OT  2  rr‘n  _ 

,-Ay  ‘-i  j  k  1  i-n.j.k  ~  Z  1  u-k  .  »-J  k 

AZ  r  -  4*  KAXAZ - r 

2  Ax  Ay 


+  kAx 


Ay  +T"j,k+1  ~2,T”j  k 


+  oeAxAz(Tl  -  T”j  k) 


+  AxAzaCg.  4>s  +  AxAzF.  aaps  +  AxAzF_e<f>E  +  AxAzq" 


(23) 


n+- 

T*  rp  n 

4  <  1,  ^  *  I  4 


+  hAxAz(T.  -T"J  k)  =pCAx-— Az — 

~2 
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The  temperatures  at  time  level  n  +  7  are  next  expressed  in 
terms  of  temperatures  at  the  previous  time  level,  n.  To  accomplish 
this,  terms  in  equation  23  are  rearranged. 

Ax 

Multiplying  each  term  in  equation  23  by  yields 


1  1 

n+-»  n+*r  n+*r  1 

T +  T,.l]k-2T,J- 

•itj 

2T"n.) 

ceAx 

kAy 

aCc.  Ax2  aF\  aAx2  F,,eAx2 


,  SA  ""  .  ~  A 

kAy  kAy 

hAx2 


kAy 


a  ,  Ax2  „„ 
kAy  ^ 


(24) 


hAx2  „ 
kAy  "  kAy 


(T  -  Tn  \  (V***  -T"  1 

v  “  4kj  2kAt  \  '  i*  W 


Equation  24  is  simplified  using  Biot  and  Fourier  numbers, 

Jl 

k 

now  becomes 


which  are  written  as  17 Ax  and  2  pCAx2'  *  resPectively-  Equation  24 


f  n+T  n+4  n+-\ 

-  T ...  a  -  2T,,.Lj + R,  (T,V,.k  -  T” .,) 

+  +T"  -  2T”uk)  +  f-R,4y(Ti-  t£„) 


aCsARiAy  x  aFA^i^y.  FEeR,Ay 


■<i>s+ 


4>s  + 


■♦1 


(25) 


+  nr-  <c*  b,  <(t.  -t",)  =  ak(C  -  T"J 
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Rearranging  terms,  the  temperatures  at  the  first  half-time  step  level 
in  the  x  direction  are 


n+—  n+-  n+— 

-  F°T  -,*»  +  «  +  2F0)TU.;  -F0TtJ  -  =  T"  _ 

+  2FoR,(T"J„.k  -T^)  +  FOR,  (T^.,  +  T^,.  -  2T”  k) 


aC 


aFAa 


Fe* 


+  2FoR1^.Os+2FoR1Ay-^-0s  +  2FoR1Ay-^-O)E 


(26) 


+  2FoR,Ay +  ^-  +  2FoBi  R*,(T. -T^) 


The  next  step  is  to  express  the  temperatures  in  the  y-direc- 
tion  at  time  level  n  +  7  using  x-direction  temperatures  determined  at 
time  level  n  +  7  from  equation  26  and  z-direction  temperatures  at 
time  level  n.  For  greater  clarity,  the  x-direction  temperatures  at  time 

1  n+7 

level  n  +  7,  T  ,  are  rewritten  as  T*.  Equation  26  now  becomes 


-F°T +  (1  +  2Fo)T  *  k  -FoT‘1Jk  =  T"J+1  k 

+  2F0R,(T^,  k  - T”  „)  +  FOR,  (T;ik.,  +  TkJ  k+1  -  2T"kJ  „) 

azf  4  n4  \  aCs.  aF.a  (27) 

+  2FoR1AyfL(T_  -  TtJ  k)  +  2Fo  R.Ay-jf-  «>,  +  2Fo  RjAy  ^  4>s 

F  £  Qff  i 

+  2Fo  R,Ay— <J>E  +  2Fo  R,Ay +  2 FoBi  R’  (T.  -T^  k) 


The  derivation  for  the  y-direction  nodal  temperature  equation  is  simi¬ 
lar  to  the  x-direction  derivation.  The  y-direction  equation  for  the  same 
node  is 
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n+-  n+- 

(1  +  2FoR ,)T1A;  -  2FoR,T,;i  k  =  T^„ 

+  Fo(T',.lk  +T-1Jk  -2T*k  )+F0R2(T“Jk.1+T"kJk„-2T^k) 
+  2FoR1Ay~(Tt  -  T"*  k)  +  2Fo  R,Ay  ^  «>, 


aFAa 


Fce 


+  2FoRjAy — g- —  <j>s  +  2Fo  R,Ay-^—  <}> 


(28) 


q"  1 

+  2Fo RjAy^-  +  2FoBi  R*(T„ -T^  k) 

1  n 

The  y-direction  temperatures  at  time  level  n  +  7 .  T  ,  are  rewritten 
as  T**.  Equation  28  now  becomes 

(1  +  2FoR ,)T*k*k  -2FoR1T”.l  =  T;kk+  Fo(T-,ik  +T:„>k  -1V^  ) 

+  FoRj(T"kk  ,  +Tkkk,,  -2T,:>k)  +2Fo  R.Ay^Tl  -T^k) 

aC j*  aFA  a  FEe  (29) 

+  2Fo  R,  Ay— ^ — <|>s+  2Fo  Rj  Ay — g — <S>s  +  2FoRjAy--£-<t>E 

_  //  1 

+  2Fo  R,  Ay  y  +  2FoBi  r[(  T_  -  T  ^  k) 


The  expression  for  the  z-direction  temperatures  at  time  level 
n+1  is  dependent  on  the  x-direction  and  y-direction  temperatures  at 
time  level  n  +  j ,  T*  and  T**,  respectively.  The  z-direction  nodal  tem¬ 
perature  equation  is 
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-  F»R3T-_,  +  (1  +  2FoR3)T'”'k  -  FoR2T»;;  = 

T;.A  +  Fo(Tt*1  Jk  +T*1Jk  -  2Tt*  k  )  +  2FoRj(T* *,  k  -  T**k  ) 


aCe 


+  2FoR1AyWTl  -  T**  )  +  2Fo R^y-^O 


aFAa 


+  2  Fo  R  j  Ay 4>  s  +  2  Fo  R ,  Ay  —  ()>  E 


(30) 


+  2Fo  R, Ay  y  +  2FoBiR  ]  (T„  -  T *  *k  ) 


In  a  similar  manner,  the  temperature  equations  for  each  node 
are  derived.  We  note  that  during  traverse  along  each  coordinate  direc¬ 
tion  in  equations  26,  28,  and  30,  a  tridiagonal  matrix  results  for  the 
solution  of  temperature. 

2.  Solution  of  the  Nodal  Temperature  Equations 

The  x-direction  nodal  temperature  equations  for  the  rectan¬ 
gular  block  are  of  the  form 


-l.j.k 


+  B 


i  T* 

*tj.k  4  l.j.k 


+  c 


1  T  * 

M.J.k  1+1  J.k 


=  D] 


t.J.k 


(31) 


where  the  coefficients  Ai  k .  Di  k  are  known  from  the  previous 

time  step. 

Each  row  of  T*  equations  parallel  to  the  x-axis  is  a  tridiagonal 
matrix  of  coefficients  Ai1Jk,  Bigk,  and  Ci1Jk.  It  was  solved  using  the 

standard  Tridiagonal  Matrix  Algorithm  (TDMA)  (Ref.  5J.  After  each  row 
of  T*  equations  is  solved,  the  y-direction  equations  will  be  solved  [Ref. 
3].  These  are  of  the  type 
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(32) 


l.k 


+  B 


2  T*  * 

2  l.J.  k  A  i.j,k 


+  c 


2  T*  * 

2 1  ,J.  k  11  I.J+l.k 


=  d3 


I.J.k 


As  in  the  x-direction  case,  each  row  of  T**  equations  parallel  to  the 
y-axis  is  solved  using  a  tridiagonal  matrix  solver.  The  z-direction  equa¬ 
tions  are  of  the  form 


A  3,,kT:.;1 


k-^B31,j:.;1k+c3,,kT:;1k+1  =  D3,,k 


(33) 


The  solution  of  the  Tn+1  equations  is  accomplished  in  a  similar  man¬ 
ner  as  used  for  both  the  x-  and  y-directions  [Ref.  3). 

3.  Numerical  Calculations 

A  computer  program  (program  (BRIAN)  was  written  to  evalu¬ 
ate  the  transient  temperature  distribution  within  the  block  using  the 
Brian  technique  outlined  in  the  previous  sections.  Figure  3  is  a  flow 
chart  description  of  the  program.  A  complete  listing  of  program 
BRIAN  is  provided  in  Appendix  D. 


Figure  3.  Flow  Chart  for  Program  BRIAN 


19 


III.  VALIDATION 


A.  SELECTED  GEOMETRY  AND  CONDITIONS 

Both  the  Brian’s  technique  and  explicit  technique  programs 
required  validation  to  ensure  accuracy  in  the  temperature  solutions. 
Identical  geometric  and  boundary  conditions  were  used  for  these 
techniques  in  the  validations.  The  left  face  had  a  constant  surface  heat 
flux  with  all  other  surfaces  treated  as  adiabatic.  Figure  4  shows  the 
geometric  and  boundary  conditions  for  the  validation  model.  Table  1 
lists  the  parameters  used  in  the  validation  runs. 

The  Brian’s  technique  and  explicit  technique  programs  were 
written  to  allow  the  user  to  conduct  a  validation  test.  The  test  involved 
taking  the  temperature  differences  at  identical  nodes  in  each  program 
and  then  comparing  each  node’s  temperature  difference  on  a  graph. 

The  finite  difference  solutions  for  the  rectangular  block  were  also 
compared  with  an  analytical  solution  for  a  semi-infinite  solid  exposed 
to  a  uniform  flux  at  its  surface.  The  closed-form  solution  would  be  a 
reasonable  approximation  to  the  actual  solution  for  small  times  when 
interior  nodes  are  not  influenced  by  the  lateral  boundary  surfaces  of 
the  rectangular  block  [Ref.  2J. 

Incropera  and  DeWitt  [Ref.  2J  tabulated  the  closed-form  solution 
for  the  case  of  constant  surface  heat  flux  in  terms  of  complementary 
error  functions.  These  were  evaluated  in  the  present  study  based  on 
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Left  face  flux 

1,500  W/m2 

Other  faces 

0  W/m2  (adiabatic) 

Material  density 

2,770  kg/m3 

Thermal  conductivity 

177  W/m-K 

Specific  Heat 

875  J/kg-K 

Initial  Temperature 

275K 

Ambient  Temperature 

295  K 

Distances  from  face 

1.0,  0.4,  0.0  m 

the  polynomial  approximations  provided  by  Abramowitz  and  Stegun 


B.  NUMERICAL  COMPUTATIONS 


A  computer  program  was  written  to  evaluate  the  closed-form 
solution  for  a  semi-infinite  solid  with  a  constant  surface  heat  flux.  The 
fifth-order  polynomial  approximations  to  the  complementary  error 
function  have  an  error  less  than  1.5  x  10‘7  (Ref.  5]. 

Figure  5  is  a  flow-chart  description  of  the  closed-form  solution 
program  VALID.  The  parameters  entered  are  identical  to  those  used  in 
programs  EXPLICIT  and  BRIAN.  A  complete  listing  of  program  VALID 
is  provided  in  Appendix  E.  Table  1  lists  the  parameters  used  for  the 
validation  runs. 

The  validation  period  for  programs  VALID,  EXPLICIT,  and  BRIAN 
was  3,600  seconds  (one  hour).  The  distance  inside  the  semi-infinite 
solid  was  based  on  pre-selected  nodes  in  the  rectangular  model.  Three 
distances  were  used  in  the  semi-infinite  solid,  corresponding  to  three 
selected  nodes  in  the  rectangular  block. 

In  the  first  validation  run,  each  coordinate  direction  had  11 
nodes.  This  corresponded  to  an  explicit  technique  time  increment  of 
17.117  seconds,  which  was  also  selected  as  the  time  increment  for 
programs  BRIAN  and  VALID.  In  the  second  validation  run,  the  number 
of  nodes  was  increased  to  21  in  each  coordinate  direction.  The  time 
increment  used  in  this  run  was  4.279  seconds.  A  third  validation  run 
was  conducted  using  1 1  nodes  in  each  coordinate  direction.  The 
explicit  technique  and  program  VALID  used  a  time  increment  of 
17.117  seconds.  The  time  increment  for  program  BRIAN  was 
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increased  to  120  seconds.  The  increased  time  increment  was  used  to 
determine  whether  the  program  BRIAN  temperature  differences 
would  differ  significantly  from  those  previously  obtained  with  the 
17.117-second  time  increment. 

C.  VALIDATION  COMPUTATIONS 

Graphical  representations  of  the  temperature  differences  experi¬ 
enced  over  the  validation  period  are  presented  in  Figures  6  through 
14. 

At  a  distance  of  one  meter  into  the  block  (Figures  6  and  7),  the 
temperature  differences  calculated  in  EXPLICIT  and  BRIAN  diverge 
significantly  from  VALID  after  a  period  of  616  seconds.  This  is  to  be 
expected  as  the  effects  of  the  constant  surface  heat  flux  will  provide 
higher  temperatures  in  the  rectangular  block  than  in  the  semi-infinite 
solid.  The  rectangular  block  can  thus  be  modeled  as  a  semi-infinite 
solid  for  only  about  10  minutes  at  a  distance  of  one  meter. 

At  a  distance  of  0.4  meters  into  the  solid  and  on  the  surface 
(Figures  8  through  11),  both  EXPLICIT  AND  BRIAN  temperature  dif¬ 
ferences  were  in  close  agreement  with  the  closed-form  temperature 
differences  for  almost  the  entire  validation  period  of  one  hour. 

Increasing  the  number  of  nodes  and,  consequently,  decreasing 
the  time  increment  had  virtually  no  effect  on  temperature  differences, 
as  can  be  seen  in  Figures  6  through  11. 

Increasing  the  program  BRIAN  time  increment  to  120  seconds 
did  not  degrade  the  accuracy  of  the  solution.  In  the  three  cases 


24 


o 


Figure  6.  Temperature  Difference  Versus  Time  for  Time  Increment 
of  17. 1 17  Seconds  with  Distance  of  I  Meter  Into  Block 
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Figure  7.  Temperature  Difference  Versus  Time  for  Time  Increment 
of  4.279  Seconds  with  Distance  of  I  Meter  Into  Block 
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Figure  8.  Temperature  Difference  Versus  Time  for  Time  Increment 
of  17.117  Seconds  with  Distance  of  0.4  Meters  Into  Block 
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Figure  9.  Temperature  Difference  Versus  Time  for  Time  Increment 
of  4.279  Seconds  with  Distance  of  0.4  Meters  Into  Block 
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Figure  12.  Temperature  Difference  Versus  Time  for  Time  Increments 
of  17.117  and  120  Seconds  with  Distance  of  1  Meter  Into  Block 
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Figure  13.  Temperature  Difference  Versus  Time  for  Time  Increments 
of  17.117  and  120  Seconds  with  Distance  of  0.4  Meters  Into  Block 
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Figure  14.  Temperature  Difference  Versus  Time  for  Time 
Increments  of  a7.117  and  120  Seconds  on  Left  Surface  of  Block 
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involving  distances  of  1.0  and  0.4  meters  into  the  surface  and  on  the 
surface,  the  temperature  differences  did  not  vary  by  more  than  0.045 
percent  from  those  obtained  using  a  17.117-second  time  increment. 
Figures  12  through  14  show  the  120- second  time  increment  plot  of 
temperature  difference  versus  time  being  in  close  agreement  to  the 
corresponding  17.117-second  time  increment  plots. 

Using  a  time  increment  of  17.117  seconds,  the  maximum  error 
was  found  to  be  within  0.019  percent  for  an  11  x  11  x  11  grid.  The 
maximum  error  was  calculated  using 

%  ERROR  =  x  100% 

*  EXACT  (34) 

where  Tcomputed  is  the  Brian’s  technique  computed  temperature  and 
Texact  is  the  closed-form  temperature.  Sampling  points  were  taken 
at  600-second  intervals. 

In  a  similar  manner,  the  maximum  error  was  calculated  for  a  time 
increment  of  4.279  seconds.  The  maximum  error  was  found  to  be 
0.021  percent  fora21  x21  x  21  grid. 

A  time  increment  of  120  seconds  was  above  the  maximum  allow¬ 
able  time  step  from  stability  considerations  for  the  explicit  technique. 
Brian’s  technique  thus  allowed  time  steps  above  the  limitation  of  the 
explicit  technique  with  very  little  compromise  in  solution  accuracy. 

Based  on  the  validation  test  results,  program  BRIAN  can  be  con¬ 
sidered  correct  and  validated  for  further  use. 
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IV.  APPLICATIONS 


A.  GENERAL 

The  Brian  technique  was  used  to  solve  for  the  temperature  distri¬ 
bution  in  an  application  example.  The  example  involves  the  transient 
thermal  response  of  a  component  on  board  an  orbiting  satellite. 

B.  ORBITING  SATELLITE  COMPONENT 
1.  Geometry  and  Initial  Conditions 

The  transient  thermal  response  of  an  orbiting  spacecraft 
component  will  be  investigated.  The  spacecraft  component  is  in  a  non- 
geosynchronous  circular  orbit  at  an  altitude  of  1,609.364  kilometers 
(1,000  miles).  The  equation  for  the  orbital  period  is  listed  in  Agrawal 
(Ref.  7]  as 


where  p  is  the  gravitational  constant  of  the  earth  and  d  is  the  sum  of 
the  satellite  altitude  and  radius  of  the  earth.  Eisele  and  Nichols  [Ref.  8] 
list  the  values  of  p  and  earth  radius  as  398,603.2  km2/s2  and 
6.378.165  kilometers,  respectively. 

The  period  of  revolution  in  this  case  is  7,104.4  seconds  or 
118.40  minutes.  For  a  satellite  in  a  circular  orbit  at  an  altitude  of  100 
miles,  Stevenson  and  Grafton  [Ref.  9]  listed  the  sun  exposure  time  as 
72  percent  of  the  orbital  time.  During  one  revolution  around  the  earth. 
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the  satellite  will  have  85.25  minutes  of  sun  exposure  and  spend  33.15 
minutes  in  the  earth’s  shadow.  For  the  example  application,  the  satel¬ 
lite  is  assumed  to  start  the  orbital  period  at  the  instant  it  becomes 
exposed  to  the  sun. 

Single  spin  stabilization  is  assumed,  thus  allowing  the 
spacecraft  component  to  spin  about  a  principal  moment  of  inertia  axis 
[Ref.  7].  The  spacecraft  component  spins  about  the  z-axis,  as  depicted 
in  Figure  15.  With  single  spin  stabilization,  it  is  assumed  that  the 
component  analyzed  here  will  have  all  four  sides  continuously  exposed 
to  the  sun  with  the  top  and  bottom  surfaces  not  receiving  solar  flux. 
The  fraction  of  solar  flux  that  is  incident  on  the  satellite  surface  is 
usually  defined  as  the  solar  aspect  coefficient  [Ref.  7).  Thus,  for  this 
example,  the  solar  aspect  coefficients  are  assumed  to  be  1.0  for  the 
side  surfaces  and  0.0  for  the  top  and  bottom  surfaces. 

Stevenson  and  Grafton  [Ref.  91  compiled  the  geometric  fac¬ 
tors  for  both  earth  radiation  and  reflected  solar  radiation  (albedo)  on  a 
flat  plate.  The  geometric  factor  for  earth  radiation  depends  on  the  sat¬ 
ellite’s  altitude  and  the  altitude  angle  between  the  normal  to  the  rect¬ 
angular  component  and  the  vertical  to  the  satellite  from  the  earth  [Ref. 
9].  Figure  16  depicts  the  geometry  involved.  The  geometric  factor  for  a 
rectangular  plate  at  an  altitude  of  1,000  miles  (1,609.364  kilometers) 
and  altitude  angle  of  60  degrees  is  listed  as  0.3174  [Ref.  9]. 
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Figure  16.  Geometry  Used  in  Determining  Geometric  Factor 
for  Earth  Thermal  Radiation 

The  geometric  factor  for  reflected  solar  radiation  is  depen¬ 
dent  on  the  satellite’s  altitude,  the  altitude  angle,  the  sun  angle,  and 
the  angle  of  axis  rotation  [Ref.  7],  Figure  17  depicts  the  geometry 
involved.  The  geometric  factor  is  0.0456  for  a  satellite  at  1,000  miles 
altitude,  altitude  angle  of  60  degrees,  sun  angle  of  90  degrees,  and 
rotation  angle  of  0  degrees  [Ref.  9], 
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TABLE  2 


PARAMETERS  USED  IN  ORBITING  SATELLITE  APPLICATION 


Dimensions 

Material 

•  density 

•  thermal  conductivity 

•  specific  heat 

Exterior  Coating 

•  solar  absorptivity 

•  emissivity 

Imposed  Flux 

•  bottom  surface 

Orbital  Data 

•  altitude 

•  period  of  rotation 

•  exposure  to  sun 

•  exposure  to  darkness 

Solar  Aspect  Coefficients 

•  side  surfaces 

•  top  and  bottom  surfaces 

External  Flux 

•  solar  flux 

•  earth  radiation 

•  albedo  coefficient 

Geometric  Factors 

•  earth  radiation 

•  albedo  flux 

Initial  Data 

•  heat  transfer  coefficients 

•  ambient  temperature 

•  initial  nodal  temperature 


0.15  m  x  0.10  m  x  0.015  m 

aluminum  alloy  2024-T6 
2,770  kg/m3 
186  W/m-K 
1,000  J/kg-K 

black  paint 
0.97 
0.92 


50,000  W/m2 

1,609.364  km  (1,000  mi) 
118.40  min 
85.25  min 
33.15  min 


1.0 

0.0 


1,353  W/m2 
237  W/m2 
0.3 


0.3174 

0.0456 

0.0  W/m2-K 
0  K 
500  K 
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Agrawal  [Ref.  7]  listed  the  mean  annual  solar  flux,  mean 
annual  earth  radiation,  and  mean  annual  value  of  albedo  coefficient  as 
1,353  W/m2,  237  W/m2,  and  0.30,  respectively.  These  value  are  used 
in  the  example. 

The  material  coating  on  the  component's  exterior  determines 
the  solar  absorptivity  and  emissivity.  The  component  is  assumed  to  be 
coated  with  black  paint,  thus  providing  a  solar  absorptivity  of  0.97  and 
an  emissivity  of  0.92  [Ref.  10]. 

The  component  is  rectangular  with  dimensions  of  0.25  m  x 
0.10  m  x  0.015  m  and  is  made  of  aluminum  alloy  2024-T6.  Incropeia 
and  DeWitt  [Ref.  2]  list  the  values  for  density,  thermal  conductivity, 
and  specific  heat. 

The  component  is  mounted  on  the  exterior  of  the  satellite. 
The  bottom  surface  is  attached  to  the  satellite  with  all  other  surfaces 
exposed  to  the  space  environment.  The  flux  on  the  bottom  surface  is 
assumed  to  be  50,000  W/m2. 

Table  2  lists  the  properties  and  other  parameters  used  in  the 

example. 

2.  Numerical  Calculations 

A  time  increment  of  120  seconds  (2  minutes)  was  used  in 
program  BRIAN.  The  program  covered  a  period  of  120,000  seconds 
(33.33  hours),  during  which  the  spacecraft  component  conducted 
16.9  orbits.  The  temperatures  of  top  surface  node  were  plotted  versus 
time,  as  shown  in  Figures  18  and  19.  The  temperature  versus  time 
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Figure  18.  Temperature  Variation  of  the  Top  Surface  Center  Node 
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Figure  19.  Temperature  Variation  of  the  Top  Surface  Center  Node 
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plots  in  both  figures  demonstrate  an  imperfect  sinusoid.  Steady  peri¬ 
odic  response  occurs  following  orbit.  The  peak  temperatures  during 
the  third  orbit  vary  from  the  second  orbit  peak  temperatures  by  0.27 
percent.  The  largest  temperature  difference  in  successive  peak  tem¬ 
peratures  is  0.27  percent  and  occurs  between  the  second  and  third 
orbits. 

The  oscillations  in  temperature  distribution  may  be  attributed 
to  overlaps  in  the  sunlight  and  eclipse  periods.  The  sunlight  exposure 
time  for  the  orbit  is  85.25  minutes.  A  time  increment  of  120  seconds 
(2  minutes)  would  allow  solar  flux  to  be  seen  by  the  satellite  compo¬ 
nent  for  an  additional  1.25  minutes  on  the  first  orbit.  Thus.  1.25  min¬ 
utes  of  the  first  eclipse  period  would  be  missed  at  the  beginning  of  the 
eclipse  period.  At  the  end  of  the  eclipse  period,  the  component  is  in 
darkness  an  extra  1.60  minutes.  These  overlaps  occur  throughout  the 
running  of  the  program  with  the  maximum  overlap  being  2  minutes. 
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V.  RESULTS 


Brian’s  technique  was  validated  for  four  of  the  six  rectangular 
surfaces.  For  cases  involving  flux  or  convective  boundary  conditions  on 
the  front  and  back  surfaces  of  the  model,  temperature  distributions 
did  not  follow  the  pattern  obtained  in  previous  validation  cases.  This 
anomaly  requires  further  investigation. 


VI.  CONCLUSIONS 


Brian’s  technique  was  validated  using  the  explicit  technique  and 
the  closed  form  solution  for  a  semi-infinite  solid.  For  the  same  time 
increment,  the  explicit  technique  uses  six  times  less  CPU  time.  How¬ 
ever,  as  the  time  increment  was  increased,  the  CPU  time  used  in 
Brian’s  technique  became  less  than  that  used  in  the  explicit  technique 
for  time  steps  larger  than  110  seconds.  Brian’s  technique  used  time 
increments  that  would  lead  to  instability  if  used  in  the  explicit 
technique. 
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VII.  RECOMMENDATIONS 


While  developing  the  computer  code  for  Brian’s  technique,  mate¬ 
rial  properties  were  assumed  to  be  independent  of  temperature.  A 
more  precise  code  would  make  thermal  conductivity  a  function  of 
temperature. 

Another  improvement  for  the  computer  code  when  used  for 
spacecraft  thermal  analysis  computations  involves  the  application  of 
orbital  mechanics.  This  would  permit  the  use  of  non-circular  orbits  in 
the  code. 

This  study  was  restricted  to  the  use  of  Cartesian  coordinates  in 
Brian’s  technique.  Further  study  is  required  in  applying  Brian’s  tech¬ 
nique  in  cylindrical  and  spherical  coordinates. 
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APPENDIX  A 


EXPLICIT  TECHNIQUE  NODE  EQUATIONS 


A.  INTERIOR  NODE  EQUATION 


(T«, 


+  R1F0(T^1.k+T"U41.k-2T^k) 
+  R2Fo(T"Jk_, 


B.  SURFACE  NODE  EQUATIONS 
1.  Left  Face 


k  =  T;,k  +  Po(TaMJ>k  +  n,,k  -  2T^k) 
+  2FoR,(t;j.i1-T"j1) 

+  FoR2(Tm.w-.  +  ^\j.k+l  -2TuO 


+  2Foq'R;(T.-T”Jk) 


2.  Right  Face 


T“„  =  T"l)  k  +  Fo(T;.,  J  k  +  T” , 0  k  -  2T;j  k) 
+  2FoR,(T^lk-T“k) 

+  FoRJ(T:,.k-1  +  *^I,j.k+I  ^^l.J.k) 
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Figure  29.  Geometry  of  Rectangular  Model 
Bottom  Face 


TuL  -  K,,  +  F°(T"  )0.„  +  T:.,,k  -  2T"t,k) 
+  FoR^T"^,  k  +T“jtl  k  -  2T°kk) 

+  2FoR2(T”.k.1-T"Jk) 


4.  Top  Face 

Till  =  T;,  k  +  Fo(T°-I  j  k  +  T°+I  J  k  -  2T”  k) 
+  FoR,(t"j_,  k  +  TkJtl  k  -  2TkJ  k) 

+  2FoRa(T"jk.1  -T"  k) 


RIGHT 
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5.  Front  Face 


T”L  =  T;jk+2Fo(T"llk-T^k) 

+  f°R  ,(T°,-..k+T”J.1.k-2T"1.0 

+  FoR2(T:,.k-,  2r:,k) 

6.  Back  Face 

T;;L=Tuk+2Fo(TL.kk-T”Jk) 

+  F°Rl(T"kJ.1.k+TI1M.k-2T;ik) 
+  FoR  2(T"j  k_j  +  T"kk*j  -  2T”^k) 

C.  PERIMETER  NODE  EQUATIONS 
1.  Perimeter  1 

T”>T;J.k+2Fo(T;,1Jk-T”J.k) 

+  FoR,(T"lJ_1,k+T”„.k-2Ty.k) 

+  2FoRa (T"kk_j  - T"Jk) 
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2.  Perimeter  2 


T"1.w  =  Tu..+  2Fo(T;.1Ji-T:ii) 

+  F°R.(T;j.,k+T:j.1„-2T;j.k) 
+  2FoRa(T"]1[1  ~T"]k) 


3.  Perimeter  3 


Tui  =  T;jk+2Fo(T^Jk-T”Jk) 

+  F°R.(T”.,.k+T”,]k-2T"t)k) 
+  2FoR2(T"kW1  -T"Jk) 


4.  Perimeter  4 


T;;„  =  T”k+2Fo(T",.kk-T"kl) 

+  FoRjCt^  j  k  +T”j+J  „  -  2TkJk) 
+  2FoR3(T|’Jktl  -T”kk) 


5.  Perimeter  5 


T:.rk  =  T”.k+2Fo(T;.1Jk-T",.k) 


+  2  FoRj  (T  "hl  k  -  T  k) 


+F°R2(T;.,k., 


Tn 

l.J.k+1 


-  2n.k) 
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6.  Perimeter  6 


'C-T-vk+2F»(rw^-T^t) 

+  2FoR,(T"J.lk-T"Jk) 

+  FoR2(T"  k_,  +  ^I.J.k*l  LJ  k  j 

7.  Perimeter  7 

T«‘:‘k=T").k+2Fo(T"-'.k'.-T"1'.) 

+  2FoR,(T"Jklk-T",k) 

+  FoR2(T”k„ 

i  / 

+  2FoBiR  *(T.-  Tny  k)  +  2Foq"Rr 

8.  Perimeter  8 

t-=t:.j,+2fo(t;+1.j,-t:,j,) 

+  2  FoR  j(  T  "J+lk  -  T  "jk) 

+  FoR2(T"jk  -l+^'i.J,k+l  ^^lj.k) 

i  / 

+  2FoBiR  ;(T„  -  TB4k)  +  2Foq"R,- 
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9.  Perimeter  9 


T;;L=T:Jk+Fo(T:.1Jk+T:.1J1-2T:.lk) 
+  2FoR1(T“_1.k-T,"Jk) 

+  2FoR2(T"Jktl  -T”Jk) 


10.  Perimeter  10 


=  T"  k+  Fo(r:_1J  k  +  T;.1J  k  -  2T:j  k) 
+  2F0R,(T1nJ.,.k-T"Jk) 

+  2FoR2(T"j k  J  ~T”Jk) 


11.  Perimeter  11 


T:;k = t:,., + f0(T”  10.k + t;„  ,  k  -  2T;lk) 

+  2FoR1(T,"J„k-T”Jk) 

+  2FoR2(T^Jk.,-T"k) 

+  2FoBiR  *(T.-  T;,  „)  +  2Foq"R1^- 


53 


12.  Perimeter  12 


T"L  =  T".J  k  +  Fo(T”_1J,  +  T;„Jt  -  2T^  k) 

+  2F0R,(T”,1.k-T”Jk) 

+  2FoR2(T"Jktl  -T"Jk) 

+  2FoBiR ’(T.  -  T"Jk)  +  2Foq"R1^~ 

D.  CORNER  NODE  EQUATIONS 

1.  Comer  1 

T^  =  T"^  +  2Fo(Tm^-T°^) 

+  2FoR1(T"].,k-T“lk) 

+  2F0Rk(T”  k41-T”Jk) 

Ay 

+  2Foq"R,-ji 

2.  Comer  2 

Tm*L  =  T"j..  +  2Fo(T?-..1..-T”J.0 

+  2FoR,(T”.lk-T")k) 

+  2FoRa(T"J  kkl  -T”  k) 

Ay 

+  2Foq"R]-j^- 
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3.  Corner  3 


+  2FoR,(T,"„,l-T“lk) 

+  2FoR2(T°J  k_, -T”J  k) 

+  2Foq"R,-^p 

4.  Corner  4 

T":L  =  T"llk  +  2Fo(T;.,)k-T:jk) 
+  2  FoR,  (T^j  k  -  T^j  k) 

+  2F0R2(T"l.1-T"Jk) 

Ay 

+  2Foq"Rj-^~ 

5.  Corner  5 

T;;i=T”k+2Fo(T:.lkk-T:Jk) 

+  2FoR1(T”„lk-T”Jl) 

+  2FoR2(T,"Jk„-T”k) 

1 

+  2FoBiR*(T.-T“k) 
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6.  Corner  6 


+  2FoHl(T"J_[1(  “  Tt"J  k) 

+  2FoRs(T,"J.l.,-T;jlt) 

+  2FoBLR  T“j  k) 

7.  Comer  7 

Tu'k  =  TM.l  +  2Fo(T;ill-T"]k) 

+  2FoR,(T"Hl-T"lk) 

+  2FoR1(T”1.k.1-T“  k) 

+  2FoB1R;(T.-T”  k) 

8.  Comer  8 

Ti:L=TM.k+2F°(Tw.j.k-T”i.k) 

+  2FoR,(T“Hk-T"k) 

+  2FoRk(T”)k.,-T"l) 

1 

+  2FoBiR  i(T.-T"jk) 
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APPENDIX  B 


BRIAN  S  TECHNIQUE  NODE  EQUATIONS 

A.  X-DIRECTION  EQUATIONS 

1.  Comer  1 

(l  +  2Fo)T*  k  -2FoT<Jk  =T;.Jk  +  U3(T;j,lk-T;)k) 

+  U4(T"jk*,  -T"j0  +V.(T->  +V3(T-s-T"J.k) 

+  V6(T-„  - T"Jk)  +W|+W3+W6  +  X,(T;‘k-Ti1) 

+  X3(T4uk  -Tl3)  +X6(T;;k  -T4^)  +  Y,i£0t|.k 

2.  Perimeter  12 

-FoT*_, j k  +(l+2Fo)T*,k  -FoT,.1Jk  = 

T;,.k+  U3(T^lik-T^k)  +U4(T”Jk„  -T:,,) 

+  v,(T-,-T:j.k)+V3(T.3-T”Jk)+W1+W3 
+  X1(T"4k -Ti,)+X3(T”*k  -T4.3)  +  Y1EoM,k 
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Figure  30.  Geometry  of  Rectangular  Model 


Comer  2 

-2FoT*_,  j  k  +(l+2Fo)T-k  =T;|,+  U3(t:.J411-T:j,) 
+u4(TrJ.k.1  -T;.,k)  fV^T.,  -x;]k)  +V3(T.3-T”  k) 
+  F5(T-5-T"1.K)+W1+W3+W5+X1(T,"J4k-Ti,) 

+  X3("C  -Ti3)+X5(T"4k  -T‘_5)  +  Y, E0 kJ k 
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4.  Perimeter  8 


«  +  2Fo)T*.„  -2F0T*,.,k  =  +  U2(x"kk_,  +  X"Jkk]  -  2XkJ  k 

+  U3 -T:,v)  +V,(T-,  -T".k)+V6(T.6  -X"k) 

+ w , + w6 + x,(x:;k  -  Ti.) + x6(T;;k -xi6)+ Y,  EotJ  k 


5.  Left  Face 


-F°Tr-,.,.k  +  (1  +  2Fo)X*  k  -FoX*,.,.,  =X°Jk 
+  u2(x;Jk„,  +x;)k„  -  2x”.k)  +  u3(x^,k-x:Jk) 
tV,(T-,  -n.0  -W,  +x,(x;;k  -x4.,)  +Y,EC)Jk 


6.  Perimeter  7 

-2F0T;-,.,k  +  (1  +  2Fo)X  *Jk  =x;jk 
*  u.  (TI,,.,  +  x:,k.,  -  2T;kk)  +  U3(X,V,,  -  X^,k) 
+v,(t-,-t;,0  +VS(X„5-X”JI)  +  W,+W5 
+  X.(<> -xi,)+x5(x”‘k  ~xl5)  +  Y,  Eg  1Jk 
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7.  Comer  3 


<l+2Fo)T*k  -2FoTf4l  Jk  =T;jk  +  U3(T”.lk-T"lJk) 

+  U4(T"Jk.1-T^k)+V1(T.,-T^k) 

+  V4(T.4-T:ik)  +V6(T.6-T"lk)  tW,+W(+W, 

+  X1(Tu'k-T4-1)+X.(T"'k-T-.) 

+  X6(T;i4k-T4.5)+Y,E0lJk 

8.  Perimeter  1 1 

-FoTw.jk  +  «  +  2Fo)T*  k  -FoT*,  Jk  =T;.,k 
+  UaCr;,.,..  -TM.k)  +  -n,)  +  V,(T„1  -T”jk) 

+  V4(T_4  -T”Jk)  +  W,  +W4  +  X1(T;j4k  -T4.,) 

+  X.(T”4k-T-.)+Y,E=llk 


9.  Comer  4 

-2FoT*_,  Jk  +  (l+2Fo)T*k  =  TkJ  k  +  U3(T”j+1  k  -  T"j  k) 
+  U 4(T”J  k_,  -T”J  k)  +  V,(T.,  -T^„)  +  V4  (T„4-T”  k) 
+  V»(t-5  - T;j  k)  +  w,  +  W 4  +  W6  +  X,(T"4k  -  t:,) 

+  X4«k-Ti4)  +X5(T;4k -Tl5)+Y,EG,tk 
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10.  Perimeter  3 


(l  +  2F0)T*.k  -2FoT*,Jk  + 

+  U.(T:.,.k.,  -T",k)  +V3(T^  -T”  k)  +V6(T„6-T”Jk) 

+  W3  +  W6+X3(T;;k -Ti3)+X„«k  -Tie)  +Y,E0lJ.k 

11.  Bottom  Face 

-FoT*,.,.*  +<l+2Fo)Tk*lk  -FoT*1)k  =  1^,,+ 

U  .(TM-,k  +  -  2T:,k)  +  U4(X-  -  TkJ  k) 

+  V3(T.3  -T“  k)  +W3  +  X3(Tk]4k  “Tig)  +  Y1EC|Jk 

12.  Perimeter  4 

-2FoT*_,Jk  +  <l+2Fo)T*„  =T”k  + 

U  .(TM-.,k  +  T"tl.,.k  -  2T;j  k)  +  U.(T;k.,  -  T"  k) 

+  V3(T-3  -T°,k)  +  Vs(T„5  -T".k)  +  W3  +  W5 
+  X3«k  -Ti3)  +X5(T:;k  -Tl5)+Y,E0|Jl 
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13.  Back  Face 

(l+2Fo)T*k  -2FoTf.1Jk  - T"j k  +  U ,(Tk]_,  k  +  T”J4l  k  -  2TkJ k) 

+  '  2Tu.*)  +  Ve(T-.  -T"j.k)  +  Wa 

+  X,«k-Tl6)+Y,E0,Jk 

14.  Interior 

-FOT +  (1  +  2Fo)T *  k  -FoT;.1Jk 
+u.(T"l)-,w+T;)„.k-2T;,k) 

+  Ua(T^.k. 

1  +^'i.J,k+l  -2TM..)+Y.Eo,.J.t 

15.  Front  Face 

-2FoT*_,  j  k  +  (1  +  2Fo)T*  k  =T:j  k+U,(T;H  k  +  T:jkl  k-2T:j  k) 
+  U2(T;j.k_,  +TkJ  k+1  -  2TkJ  k)  +Vs(T.s-T”Jk) 

+  W5+X5(T”‘k-Ti5)+Y1Eo1.J.1, 

16.  Perimeter  1 

(1  +  2Fo)T  *Jk  -  2FoT*+1  j  k  «  T”,  k  +  U  ,(t”  k  +  T”  4J  k  -  2TkJ  k) 
+  U4(T”Jk_,  -T,”,..)  +V4(T.,  - TkJ k)  +Ve(T.e-T”Jk) 

+  W4  +  W5  +X4(T"kk  -Ti4)  +Xs(T”‘k  -Tls)  +  Y,  E0,  J  k 
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17.  Top  Face 


+  (1  +  2Fo)T *  k  -FoTf.1Jk  =x:j, 

+  U,(T"j-..k  +TM...k  -  2T«0  +  -T“  „) 

+  V4(T-4  -  TkJk)  +  W4  +  X4«k  -  Ti,)  +  Y,  Bo 


18.  Perimeter  2 


-2FoTJ.1Jk  +  (l  +  2Fo)T*  k  =T;k+Ul(T:.,,k  +  T; 


,J+1  .k 


+  -T"Jk)  +V4(T.4  -T:,k)+V5(T.5-T^k) 

+ w4 + w5 + x4(T;;k  -  tj.4)  +  x5(T-;k  -  t:5)  +  y,  Eo  , ,  k 


19.  Comer  5 

(l+2Fo)T*k  -2FoTr.,.Jk  =T:j,  +  U3(T”.,k-T;i,) 
+  U.(T",..„  -T”.k)  +V2(T^  -T"lJk)  +V3(T-3-T“|k) 
+  V6(T.e  - T", k)  +  W2  +  W3  +We+X2(T"4k  -Tt2) 

+  *3«k  -Ti3)+X6(T;;k  -T4,)  +Y,E0ttk 
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20.  Perimeter  9 


-F°n,.,k  +  (1  +  2Fo)T *  k  -FoT;,ltt  =t:ji  +  U3(t:j.1,-t;j,) 
+  U.(T“,.k.. -T",.k)  +Va(T^ -T"Llk)+V3(T.3-T^t) 

+  W2  +  W3  +  X3«k  -  Tl,)  +  X3(T:.;k  -  Tig)  +  Y,  Eo  ,lk 


21.  Corner  6 

-2FoT;.1Jk  +  <l+2Fo)T*k  =T:jk+U3(T;0.,k-T:jk) 

+u.(T”,.k., -Ty +v5(t.2  -  Ty  k) +v3(T.3-TrJk) 

+  v5 (T-s  -  T"  ,k)  +  W2  +  w3  +  ws  +  X2(T;;k  -  Tig) 

+  X3«k  -Tl,)  +X6«k  - Tls)  +  Y1  Eg LJk 


22.  Perimeter  6 

(1  +  2Fo)T ,*  k  -2FoT;.1J  k 


+  u2(t 


n 

i.j.k-1 


+  T 


n 

i.J.k+1 


+  U3(Tu-..k  -n,)  +v2(t-2-t”  k)  +V,(T.e  -T;j  k) 

+  w2  +  w6  +  X  -  Tig)  +  X,(t£„  -  t!6)  +  Y,  Eg  tJ  k 
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23.  Right  Face 


-F°n,  J  k  +(l+2Fo)T*  k  -  FoT*k,  J  k  =t; 


J-k 


+  U.(T”u.k-.  +T".k., -2T;ik)  +U3(T;H.k-T"Jk) 

+  Va(T.2  -T”J  k)  +W2  +  Xs(T"‘k  -Tl2)  +  Y1EGkJk 


24.  Perimeter  5 


-2FoTr-, k  +  (1  +  2Fo)T  =  rtl  k + u2(t:j,_,  +T:Jk„  -  2T;Jk) 

+  Ua(T:j.,k  -T:j  k)  +V2(T.2-T”lk)  +  V,(T.,  - T kJ k) 

+  w2  +  W5  +  X2(t;;„  -  Tl,)  +  x5«k  -Tis)  +  Y,E, 


'  t.J.k 


25.  Comer  7 


(l  +  2Fo)T*  k  -2F0T;.1)k  =T;j,  +  U3(t:).1,-T”,) 
+  U4(T”.k_,  -T;jk)  +  V2(T^  -T",)  +  Vk(T.k  -T^  k) 
+  V6(T.6  -T”Jk)  +  w2  +  w4  +  W6  +X2(T:iik  -Tl2) 

+ x  4(t  ;.;k  -  t  :4) + x,(  T;.;k  -  ti6) + y,  Eo  uk 
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26.  Perimeter  10 


-FoT*1Jk  +  (1  +  2Fo)T *j k  -FoT>1Jk  =  T" j k 
+  U3(T:j_lk-T:tk)+U4(T;jk_1-T"Mk) 

+  Vk(T^  -T"  k)  +V4(T.s-T"Jk)  +Wa+W4 

+  X,(T:‘*  -A)  +  X4(T”‘k -Tl4)+Y,E(i,Jk 

27.  Comer  8 

-2FoT*_1Jk  +  (1  +  2Fo)T  *Jk  =T;jl+Ua(T;j.,k-T;jk) 

+  U4(T"J.k.I  -T;jk)  +V2(T^  -T;jk)  +V4(T.4-T")k) 

+  V5(T-5  '  T„.k)  +  Wa  +  W4  +  W5  +  Xs(T:;k  -  T4.,) 

+  X4(T"J4k-Ti4)  +X5«k  -Tt,)  +  Y,EG,Jk 

B.  Y-DIRECTION  EQUATIONS 
1.  Comer  1 

(l  +  2FoR,)T“  -2FoR,T*«  k  =  TkJ  k  +  U4(TkJk41  -  TkJ  k) 
+  U5(T*1Jk  -T.V  )  +V,(T.,  -T;jk)  +V3(T.3-T"Jk) 

+  V,(T-6-T".k)  ■fW,+W3+W6  +  X1(T;j4k  -T4.,) 

+  Xs(T"‘k  -T4.3)+X6(T:4k  -Ti6)  +  Y,E0lJk 
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2.  Perimeter  3 


-FoR,T*!lk  +  (l+2FoRl)T”k  -FoR.T*; 


J+l . k 


T«+  - tm.O  +  us(T;.,,.k  -t*  k ) 

+  v3  (T-3 -!■;,)  +  V6(T.6  -  T”  k)  +  w3  +  W, 
+  Xs(T"J<k  -T-a)  +X6(t‘:'I1  -Xi6)  +  YlE0l)k 


3.  Comer  5 


-2FOR.T*!,,  +  (1  -  2FOR  ,)T  ”  =  +  U 4(t”, -T^ |k) 

+  Us(T*,xk  -T*.k  )+V2(T.2-T:jk)+V3(T.3-T;jk) 

+  vb(T-,  -T^k)  +  Wk  +  \V3  +  W6  +  X,(T^k  -Ti2) 

+  x3«k  -Tt3)+X6(T;;k  ~Tt6)  +  Y,EClJk 

4.  Perimeter  8 

(1  +  2FoR  ,)T*J  k  -2FoR,T*.l  k  =  T"jk  +  U2(Tk)  k_1  +  TkJ  kkl  -  2TkJ1 

+  U5(T.‘-..J.k  -  T,*.k  )+V1(T„1-T:.J,)+ve(T.t-T"Jk) 

+  w,  +  w6  +  X,(T;‘k  - T4.,)  +  Xs(T;kU  - T4_6)  +  Y 
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5.  Back  Face 


-FOR.T"  ,  +  (1  +  2FoR j)T **k  -  FoR,T*;,k  = 
+  Ua(T;jk.1+T:jk.1-2T"  k)+Us(T,-,Jk  -T*k  ) 
+  Vs  (T-s  -  T;jk)  +  W6  +  X  -  Tl6)  +  Y,  Eg  LJ  k 

6.  Perimeter  6 

-2FoR,T“.„  +  (l+2FoR,)T”  =  T”,  k  +  U2(t"  +  T 

+  U5(T;.1j,,  -T,'.k  )  +v,(T-2  -T;jk)  +V,(T.6-Trjk) 

+  Wk  +  W6  +  X2(T"*k  -Tl2)+X6(T;‘k  -Ti6)  +Y,EG,Jk 


+ 


n 

f.j.k+1 


-  2T 


n 

i.J.k 


7.  Comer  3 

(l+2FoR,)T*k  -2F0R,T'.,.k  =  T"Jk  +  Uk(T"Jk_]  -T"Jk) 
+  Us(T*,,.k  -  T*  k  )  +  V,(T., -Ty  +  V4(T.k-T:jk) 

+  V«(T-6-T:j.t)+W,+W4+W,+X,(T"J4k-Tl]) 

+  X4(T^k-T:4)  +X6(T""k  -Tl6)+Y,EGl)k 
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8.  Perimeter  1 


-FoRiT",a  +  (l+2FoR,)T“t  -  FoR.T**  k  =  T"Jk 
+  U4(T”.k.1-T:jk)  +  Us(T,*1.)k  -T*.k  )+V4(T..-T;jk) 
+  V6(T.s-T",k)+W4+W6+X4(T"4k-T!4) 

+  X6«k-T-e)+Y|E(ikJ.k 


9.  Comer  7 

-2FoR,T;;,.k  +  (l+2FoR,)T“  -  t”j k  +  U4 (TkJ k_,  -T;)k) 
+  °5(T*,1.k  -TM.k  )  +  VS(T-,-T:i.k)+V4(T.4-T"lk) 

+  V«(T-«  -T”,.k)  +WJ+W4+W,  +XJ(T;j4k-TlJ) 

+  X.«..  -Ti4)  +X6(T:;k  -T*,)  +  Y,E0kJk 

10.  Perimeter  12 


(l  +  2FoR1)T'  k  -  2FoRIT*j41  k  =  T"jk  +U4(T"Jk41  -T"kk) 

+  F«(T,'-1)k  +T*1J.k  -  2T,*)k  )+V1(T.1-T:ik)+V3(T.3-T".k) 
+  W,  +W3  +  X,(<k  -Tl,)  +  X3(T“4k  -T^)+Y,E0kJ.k 
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11.  Bottom  Face 


-F°R,T",.„  +  0+2FoR,)T”  -  FoR.T,*^  =T;jk 
+  U4(Trj.l.,-T"J.11)+Fo(T*1Jk  +  T  * ,  j  k  -  2T  *Jk  ) 

+  V3(T.3  -T;)k)  +  W3+X3«k  -Ti3)  +Y.ECJ.,, 

12.  Perimeter  9 

-2FoR,T*!,  k  +  (l+2FoR1)T*,*k  =  TkJk  +  U  4(T"Jkt]  -T”Jk) 

+  Fo(T.*.Jk  +T*1Jk  -  2T*Jk  )  +V2(T_3  “T"jk)  +  V3(T-3 -T")k) 

+  w2  +  ws  +  x2(T"4k  -  tIjj)  +  x3(T;j4k  -  Tl3)  +  Y,  Eo  tJ  „ 

13.  Left  Face 

(l  +  2FoR,)T;j*  -  2FOR.T;*,  =  T;jl+U2(T"Jk.1+T"Jk,1-2T;jk 
+  Fo(T ‘j 3  k  +T*1Jk  -  2T>  k  )  +V,(T_,  -TjJ  k) 

+  W14.X,(T,"J4k-Ti,)+Y,Et 


'  i.J.k 


14.  Interior 


-FoR.T;/-,k  +  (1  +  2FoR JT **k  -  F0R,T'.,.k  =  TkJ 


j.k 


+  Us(T:j.k.1+T”  k.1-2T"lJk)+Fo(T*1.).k  +  T*IJk  -2T*  k  ) 


+  Y,EotJ.k 
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15.  Right  Face 


-aFoR.T”  ,  +  (1  +  2FoR  j)T"*h  =  ,k  +  U,^  +  T"  ,k4l  -  2^, 


+  F«(Tw,,  -2T*lk  )+V2(T^-T”  „) 

+  W2  +  X2(T"kk  -t!2)  +  Y,  Eg,  j  k 


16.  Perimeter  11 


(1  +  2FoR  ,)T”  -  2F0R,T-k  .  T"k  +  U4  T“.k) 

+  Fo(T,*-.J.k  +Tr.1J.k  -  2T*  k  )+V,(T.1-T:,k) 

+  V.  (T-.  - Tm.O  +  W,  +  W4  f  X,(T"Jk  -  T4.,) 
+x4(T:,;k-T;4)+Y1E0,.J.k 


17.  Top  Face 


*  -  T*  ’ 

J+l.k  •*•  i.j.k 


-FoR,T**lik  +  (1  +  2FoR  j)T  **k  -  FoRjT; 

+  U.(T,"J,.1-T"Jk)+Fo(T;,J,k  +  T *+I j k  -2T*  k) 
+  V.(T-,  -T”,k)  +  W4  +X4(T:;k  -T4.4)  +  Y,  E0lJ.k 
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18.  Perimeter  10 


-2FoR1T*J*1  k  +  (1+2FORJT”  =  TkJ k  +  U4 (T"2  kI  - TkJ k) 

+  Fo(T'1J.k  +Tr.,,.k  -2T,*.k  )+V,(T.2-T;jk) 

+  Vk(T.s  -TkJk)  +W2+W4  +  X2(T;j“k  -Tt,) 

+  X.(T"‘.-T-.)+Y,EotJ.1 

19.  Comer  2 

(1  +  2FoR  ,)T**k  -  2FoR1T*j;i  k  =  TkJ  k  +  U4  (TkJ  k4]  -  TkJ  k) 
+  U5(T;-,.,l  -  T,V  )  +  V,(T->  -T"y.k)  +V,(T.3-T^k) 

+  V=  (T-a  - Ty  +  W,  +  W3  +  W6  +  X,(T:;k  - Ti,) 

+  X3«K  -T‘-a)  +X5(t;;„  -Tl5)  +Y,E0lJk 


20.  Perimeter  4 


-FoR.Ttjt,.  +  (1  +  2FoR ,)T “  -  FoR,T*;,.k  =  T")k 

+  U,(T":,a-T:j.t)+U5(T*1.Jk  -T*Jk  )+V3(T_3  -T"Jk) 
+  Vs(T-s  -T;,.,)  +Ws  +  W5+X,(Trj4k-Ti,) 

+  X5«k-T4-5)+V,E0kJ.k 
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21.  Comer  6 


-2 FoR .T"  k  +  (1  +  2FoR  ,)T **k  =  T:j  k  +  U4(T:)  k.,-T:j  k) 
+  U5(Tm,,  -  T,*  k  )  +  V2  (T-j -T”  k)  +V,(T.3-Tr.Jk) 

+  V5(T-5-TMk)+W2  +  W3+W5  +  Xi(T:i1k-Ti2) 

+  X3«k  -T4.s)  +Xs(T;;k  -Ti5)  +  Y,E0lJk 

22.  Perimeter  7 

(1  +  2FoR  ,)T* *k  -  2FOR.T-  ,  =  Us(T^k.,  +T:jk„ 

+  U5(T”,j.„  -  T,*.u  )+V,(T.1  -T”.k)+V5(T.5-T^ „)  +W,  +w5 
+  X.«*  -Tl,)  +X5«k  -T‘,)  +Y,E„u.k 


23.  Front  Face 


-F0R,T”,k  +  (l+2FoR,)T**k  -  FoRjT*  *  k  =  T" 


.j.k 


+  U2(T;)k.1+T:jk.,-2T;).k)+U5(T,*.1Jk  -T*k  ) 

+ vs  (t-5  -  T;lk) + w» +xXT"l  - T-,) + Y,  E= 
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24.  Perimeter  5 


-2FoR ,T *,*lk  +  (l+2FoR,)T”  =  k  +  U, (T^ k_,  +  T"kJ.kkl -  2T;,k 


+  U=(T',,,  )+V>(T^-TuO+V.(T-«-TM.k)+W1+W, 

+ x2(T:;k  -  ti,) + x5(T:;k  -  tij + v.  e0ui 


25.  Comer  4 


(1  +  2FoR  ,)T **k  -2FoR,T*;,  k  =  T"y  k  +  U4  (T^ - T"  .„) 
+  Us(T-1Jk  -  T>,  )+V1(T.,-T"Uik)+V4(T.4-T".k) 
+v5(T-5-T;,)*w1+wJ+w5+x,(T;.;k-Ti1) 

+ x4(T”*k  -  r :.) + x  5(  -  Tl5) + Y  ,Eo  uk 

26.  Perimeter  2 

-foR,T“,.k  +  (1  +  2FoR,)T”k  -  FoR,T**.k  =  T”,„ 

-T‘,k  )+V,(T.,-T^) 

+v5(t-5  +w. +w,+x.(Tr;l-Ti4) 

+  Xs«.-Tl5)+YlEouk 
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27.  Corner  8 


C. 


-2F°R.T",*  +  (l+2FoR,)T*;k  =T;jk+U4(T;.J,.1-T:,k) 
+  U5(T*,,k  -T*  k  )  +V2(T,  -T"  k)  +V.(T.4-T"lk) 

+  vs (T-5  - t;„)  +  w2  +  w4  +  w5  +  xa(rr.;k  - t!2) 

+  X««„  -  t!4)  +  X  s(T"‘k  -  Tl5)  +  Y,  Ec,Jk 

Z-DIRECTION  EQUATIONS 

1.  Comer  1 

(1  +  2FoR2)T"*k  -  2FoR2T"Jk4l  =  T,*“  +  U3(T-*  k  -  T”  ) 

+  u5(T*1)k-T*,k)+v1(T.-T;;k  )+v3(T-3-T;;k  ) 

+  V6(T.6-T“  )  +  W,  +  w3  +  W6  +  Xj(t*  ”k  -Ti,) 

+  X3(Ttj*k  -Ti3)+X6(TlV:  -T!6)  +yiEo1Jk 

2.  Perimeter  8 

-FoRJlIl,  +  (1  +  2F0R2)T;;'k  -  FoR  2T"*‘k  =  T*  * 

+  U3(T”,.k  '  T,"  )+U5(T*1Jk-T*  k  )+V,(T-1-T*<  ) 

+  vs(t-6-t;j*  )+w,  +  w6  +  x,(t“:  -Ti,) 

+  Xe(T”k*  -Ti-6)+Y,Eok,k 
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3.  Comer  3 


-2FoRaT"‘k_,  +(1  +2FoR2)T"‘=T**k 

+  U3(T-.k  -  T*  * 

+  U6(T'1J.k-T*.k 

)+v1(T.1-Tt;k 

)+v4(T.4-T-  ) 

+  v6(t.6-t;j*  ) 

+  w.  +  w,  +  wfi  +  x, 

14  6  1 

i(T*Vf  -T4-0 

+x4(t:j\4  -t-4) 

+xs(t,*;;  -Tt6) 

+  YjEg,  Jk 

4.  Perimeter  12 


(1  +  2FoR2)T, j k - 2FoR3T,4k4l  =  T*  k  +  U3(T”  k  -  T”  ) 
*Fo(Tw.,.i  +T*1.,.k  -2T*  k  )+v,(t.-t;1*  )  +V3(T_3  -T*j*k  ) 

+  W1+W3  +  X,(t;j*4  -Tt,)+X3(T”;  -Tt3)  +Y,EoIJk 


5.  Left  Face 

-2F0R2T"‘k.,  +  (1  +  2F0R,)T"*'k  =  T*  • 

+  F0(T*1Jk  +T*uk  -  2T*  k  )  +V,(T.1 

+  W ,  +  W(  +  X  ,(T  “4  -  T4.,)  +  X  4(T*  * 


+  U3(T*:,.k  -  T‘t  ) 
-T:/„  )+v.(T-4-T”k 

-X-4)  +YjEo1]k 


) 
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6.  Perimeter  1 1 


2FoR2T";'k_,  +C1  +2FoR2)T;;'  =T”  +  U3(T"*  k  -  T“  ) 

+  Fo(T*)jk  +T1*.1Jl-2T-k)+V,(T.,-T:;k  )+V4(T.,-T**  ) 

+  WI+W1+X1(T*'*  -Ti,)  +  X.(T";  -T4.4)+Y,EoMk 


7.  Comer  2 

(1  +  2FoR2)T”4Ik  ~FoR2T"*‘k+1  =  T,*  k  +  U,(T**.k  -  T»  ) 
+  US(Tr-,.J.l  -T*.k)+V,(T.,-T;;k  )+Va(T^  -T**k  ) 


s(T-5-T“l  )+W,+  W3  +  Ws  +  X1( 

T  *  *4  _  T4  ^ 

i.j.k  1  “ \) 

3(T”<  -T4-3)+X5(t-;;  -Ti,)+Y,E„uk 

Perimeter  7 

-FoR2T"'k.,  +(1  +  2FoR2)T"*k  -  FoR2T"41ktl  =T*Jk 

+  U3(T”,.k  -  T”  )+Us(T*,Jk 

-T:,v) 

+v.(T-,-T:;k  )+v5(T-5-T;J*k 

)+WJ+W5 

+x,(T”ki  -T-.) +xs(t*j*;  -t: 

5)+Y,Eo,,k 
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9.  Comer  4 


-2FoR2T;;,k.1+(l+2FoRJ)T"1k  =  T“  +  U3(T**.k  -  T«*  ) 
+  U5(Tr-,tl-T,'.0+V,(T-,-T”  )+V4(T.4-T“  ) 

+  V5(T-5-T“w  )+W,  +  W4  +  W5  +  X,(t**  -Ti.) 

+  X«(T,“*  -Ti4)+X.(Trf  -T:5)+Y,E0,Jk 

10.  Perimeter  3 


(1  +  2FoR  2)T,  j  k  -  2 FOR 2T?"  „  =  T ” 

+  U,(T”.k  +T”  k  -  2T”  J  +  -T*k) 

+  V3(T.3-T”  )+V,(T.e-T”  )  +  W3  +  W8 

+  X3(T“;  -Tl3)+X6(T“‘  ~Tl6)  +  Y,EG1Jk 

11.  Back  Face 


-for,'1':.;!-, + o + zforjt;;;  -  for^;;;.,  =t** 

+  U,(T”,.,  +T”..,  -  2T"„  )  +  US(T -T*k) 
+  Ve(T-,-T**k  )+W6+Xs(T”4  -Tl6)+Y,Eo,lk 
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12.  Perimeter  1 


-2FoR2T";'k-.  +(1  +2FoR2)T"i  =  T**k 

+  U.(TtA.,  +T“,k  -  2TAt  )  +  U5(T,*.,lk-T,*.k) 

+v.(T-.-Tr;k  )+v8(t_6-t*«  )+w4+w6 

+  X.(T”i  -T4-.)+X6(t-<‘  -Tl,)+YlEoiJ.k 

13.  Bottom  Face 


(1  +  2FoR2)T";k  -2FoRaT"’k,1  =T“ 

+  U.(T;A.k  +  T“  k  -  2T*<  ) 

+  Fo(T*,V  +Tr.t.,.k  -  2T-*  )+V3(T.3-T”k  ) 

+  W3+X3(T**k4  ~Tt3)  +  Y,Eo1Jk 

14.  Interior 

-  FOR  2T"- +  (1  +  2FOR  2)T"‘k  -  FoR.T-;,,  =  T” 

+  u,(TtA.k  +  T“,k  -  2T"k  ) 

+  Fo(T*1Jk+  T*t]Jk-  2T*k)+V4(T.4-T*-k  ) 

+  W 4  +  X 4 (t  •  “k  -Ti.4)+Y1Eo,J.k 
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15.  Top  Face 

-2FoR2T"0*L  +  (»  +  2FoR,)T”k  «  T*  * 

+  U,(TtA.k  +  T”,.k  -  2T*j.t  )+  F0(TAJk  +T*1Jt  -2T*k) 
+  V,(T.4-T”  )+W4  +  X4(t**4  -Tl4)+V,Eo,,k 

16.  Perimeter  4 


(1  +  2FoR!)T"‘k  -  2FoR2T;;'k„  =T** 

+  U.(T”,k  +  T”,.k  '  2T”  )  +  U5(T>,Jk  -T*k) 

+  v3(T-3-T”k  )+V5(T.5-T“  )+w3+w5 

+  X3(T”k4  ~  ^Ig)  +  Y,EotJk 

17.  Front  Face 

-F°RaT";L  +(1  +2F0R!)T"L  -FoR2T»;‘41  =T” 
+ui(TtA.k  +  T;,:,.k  -  2T-x  ) 

+u5(Tr-,.,.k  -Ti*.k  )+v5(T-5-T"k  ) 

+  W5+XS(T“4  _t!5)  +  Y,Eo,  j  k 
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18.  Perimeter  2 


-2  FOR  +  (1  +  2  For  2)T"‘k  =  T 

+  U.(T;;-,.  +t“,»  -  2T”  )  +  Us(T*ltl-T*k) 

+  Vi(T-. -TJj'k  )+Vs(T.s-T“  )+W4+Ws 

+  X.(Tu*k4  -T‘.4)+X5(t*;;  -T:5)+Y,Eo,Jk 

19.  Corner  5 

(1  +  2FoR 2)T"* k  -  2FoR2T”;'k41  =  TJ* 

+  U3(T“  k  -T*;  )+Us(T*,Jk  -T*lk  ) 

+  V2(T.2-T“  )  +V3(T-3  -TJj*k  )+Vs(T^-T*«  ) 

+  w2  +  w2  +  w6  +  x2(t  *•*  -t*„2) 

+  X3(T;;k4  -Ti3)+X6(T>*;  -Ti6)  +  YjEo,kk 


20.  Perimeter  6 

- F°RaT”:L-,  +  (1  +  2 FoR 2)T"*‘k  - FoR2T”;;„  =  T  ” 
+  U3(T*!,.k  -  T“  )+U5(T*,lk-  T”  ) 

+  v2(T.2-T;;k  )+v6(T.6-T”  )+w2  +  w, 

+  x!(T;;k*  -t‘-2)+x6(t-j-;  -t:,)+y1eo1j.1, 


81 


21.  Corner  7 


-2FoR2T",l.1+(l+2FoR!)T"i  =  T-  +U3(T“  k  -  T**  ) 

+  U5(T,V,k-T>k)+Vs(T.2-T“  )+V((T.4-T”  ) 

+v6(t.6-t;)*  )  +  w2  +  w4  +  ws  +xs(t‘j,‘  -t12) 

+  X4(Tr.;k‘  -Tl4)  +  X6(T*;k4  -Tg+Y.Ec,^ 


22.  Perimeter  9 

(1+  2FoR2)T"1k-2FoR2T”'k.1  -TJ* 

+  U3(T”,.k  -T“v  )+Fo(Tr-,.,k  +T-,Jk  -2T*k  ) 
+V2(T.2-T*«  )+v3(T-3-T;;k  )  +  w2  +  w3 

+  x.(T;i*k  -Tl2)+X3(T"|;  ~Ti3)  +Y,EG,Jk 


23.  Right  Face 

-F°R2T"'k.,+(l  +2FoR2)T";-FoR2T"’k41  =T“ 

+  Us(T "  T"k  )+F°(T  +T -2T*.„  ) 
+v2(T.2-T”  )+w2  +  x2(t;;„4  -Tl2)+YJEo1,Jk 
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24.  Perimeter  10 


-aFoR.x:;;,,  +  (1  +  2FoR j)T”*'k  =  T,<  ;  +U,(T*;i,l  -  T** 
+  Fo(T*,J.k  +T*1Jk  -2T*k  J+V^T^-T-  ) 

+  V4(T..-T”  )+W2  +W,  +X2(t*£  -Tlj) 

+  X.(Ttf  -T,-1)+Y1Eol1, 


25.  Comer  6 

(1  +  2FoRs)T"V  -  2FoR!T;;'k4,  =T” 

+  U,(T“.k  -  T*<  )+Us(T*1Jk-  T*„  ) 

+  V!(T.1-T"  )+V,(T.3-T"  )+V5(T^-T“  ) 

-ws+w3+w5+xs(t,”<  -t4.!)  +  x3(t“*  -t!3) 
+x5(t;;4  -t!5)  +Y,EotJk 


26.  Perimeter  5 

-  FoR  aT  "*k  l  +  (1  +  2  FoR  2)  T"*k  -  FoR  aT  "*k4l  =T“ 
+  U3(T*!,k  -  T**  )  +  U5(T>1Jk-  T-  ) 

+  V2(T.2-T“  )+v5(t_, -T“  )+w2+w5 

+  X*(Ttf  -T-J)X5(T,"‘  -T:,)+Y,Eo,Jk 
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27.  Comer  8 


-2FoR2T”;,k.1+(l  +  2FoR2)T"'k  =  T“  +  U3(T”k  -  T**  ) 

+  u5(Tr-.,.l-T*.k)+V2(T.2-T“  )+V4(T.4-T>*  ) 

+v5(T-s-t;A  )  +  W2  +  W4  +  W5 + x2(t*  *k  -Tl2) 

+  X4(T*;k‘  -T'.4)+X5(t”‘  -Tl5)+Y,Eo,lk 
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APPENDIX  C 


PROGRAM  EXPLICIT 


4444**44***4*4*************44**4*4*V**4*  *4v*****4*44* 4 ********  *  ******** 

* 

*  PROGRAM  EXPLICIT 

* 

**4******************************************************************** 

44 ********************* ********4******* ******************************** 


*  EXPLICIT  METHOD  FOR  TRANSIENT  HEAT  CONDUCTION  IN  THREE 

*  DIMENSIONAL  CARTESIAN  COORDINATES 


44 ****** 4* 4* *4444*4 4 *44* *4* *44**44*4**** ************* ****************** 
4 44 4 *44*4*4 *4444**44 4 f*44 ***************4*4 44 4 4*44*4* ******** 4 ********* 
* 

*  DESCRIPTION  OF  VARIABLES  USED  IN  PROGRAM  EXPLICIT 


*  NOTE:  SI  UNITS  ARE  USED  IN  THIS  PROGRAM  UNLESS 

*  OTHERWISE  NOTED 


*  1.  USER  SPECIFIED  VARIABLES 

4 

*  A.  GEOMETRIC  DIMENSIONS: 

* 

*  DELX-DI STANCE  INCREMENT  IN  THE  X  DIRECTION 

*  DELY-DISTANCE  INCREMENT  IN  THE  Y  DIRECTION 

*  DELZ-DI STANCE  INCREMENT  IN  THE  Z  DIRECTION 

*  I— -X  COORDINATE  OF  NODE 

*  J----Y  COORDINATE  OF  NODE 

*  K-— Z  COORDINATE  OF  NODE 


LX— LENGTH  OF  MODEL  IN  THE  X  DIRECTION 
LY— LENGTH  OF  MODEL  IN  THE  Y  DIRECTION 
LZ— LENGTH  OF  MODEL  IN  THE  Z  DIRECTION 

M— -NUMBER  OF  NODES  IN  THE  X  DIRECTION 
N— -NUMBER  OF  NODES  IN  THE  Y  DIRECTION 
P- — NUMBER  OF  NODES  IN  THE  Z  DIRECTION 


B.  MATERIAL  PROPERTIES: 

CP— SPECIFIC  HEAT 

Kl— THERMAL  CONDUCTIVITY 

RHO-DLNSITY 


C.  INITIAL  DATA: 

FLUX-SURFACE  FLUX 

FREQ-NUMBER  OF  TIME  STEPS  BETWEEN  SUCCESSIVE 
TEMPERATURE  PRINTOUTS 

H . HEAT  TRANSFER  COEFFICIENT 

TAM B--AM  BI  ENT  TEMPERATURE 
TINTT-INTTLAL  TEMPERATURE  OF  ALL  NODES 
VAL— LOGIC  NUMBER  TO  DETERMINE  IF  VALIDATION 
TEST  IS  TO  BE  RUN 


2.  NON-USER  VARIABLES 

A.  GENERAL: 

BIO— -BIOT  NUMBER 

COUNT-COUNTER  FOR  DETERMINING  THE  NUMBER  OF  ELAPSED 


TIME  STEPS 

DELT— TIME  INCREMENT 

FO . FOURIER  NUMBER 

TIME— DURATION  OF  CALCULATIONS 

TNEW—  MATRIX  OF  TEMPERATURES  AFTER  TIME  STEP  DELT 


B.  EXTERNAL  PROGRAMS: 

CTIME . USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

AMOUNT  OF  CPU  TIME  USED 

NOUT . USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

AMOUNT  OF  CPU  TIME  USED 

TIMEO . CPU  TIME  AT  BEGINNING  OF  CALCULATIONS 

TIME1 . CPU  TIME  AT  END  OF  CALCULATIONS 

U'MACH . USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

AMOUNT  OF  CPU  TIME  USED 

if  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  if  it  it  it  it  it  *  *  *  *  *  it  it  it  *  it  it  *  *  *  *  *  it  ifi.it  iti.it  it  it  If  if  if  if  if  *  *  *  *  *  *  *  *  *  tt  it  ft 
if  *  *  *  *  it  it  it  it  it  it  *  *  it  it  *  *  if  a.  it  if  *  *  *  *  *  if  it  if  if  if  *  *  if  if  *  if  it  it  if  it  if  if  if  it  if  f.ifif  tf  if  if  if  it  *  if  *  *  if  if  if  if  if  if 

DIMENSION  T( 25.25.25).  TNEW(25.25.25) 

REAL  TAMB.  H.  RHO.  ALFA,  FO.  FLUX.  R.  Rl,  R2,  K1 

REAL  DELX.  DLLY.  DELZ.  DELT,  TIME.  TINTT.  TNEW,  BIO 

REAL  TDIFE1,  TDIFE2,  TDIFE3 

REAL  LX,  LY,  LZ 

REAL  CTIME,  TIMEO,  TIME1 

INTEGER  I,  J,  K,  M,  N,  P,  COUNT,  FREQ,  VAL.  NOUT 
EXTERNAL  CTIME,  UMACH 

COMMON  TNEW,  TIME.  DELT,  M,  N,  P,  TDIFE1.  TDIFE2,  TDIFE3.  TINTT 


COMMON  COUNT.  FREQ 


* 

*  *  ❖  *  *  #  ❖  *  *  *  -T  *  *  n*.  *  >:*.  #  *  *  *  *.  $  *  *  &  »:*.  *■.  *  *  *  *  *  $  *  *  *  *  *********  #  *  $  *  *  *  *  *  *  *.  *  *  *  $  *  *  *  *  *  *  *  *  * 

*  ❖  ❖  *  A'  tr-  *  :>  ❖  ?!•  ❖  %-•  ?!*■  £  £  *  *  &  :js  <t  £  r>-  ijs  *  $  *  $  v-  .*:-.  *  jjs  &  #  *  *  *  *  4c  #  #  »js  jjt  #  <s  &  <<  *  <?  *  &  >;*.  $  <;  <•  ?;•.  rj-.  *  $  *  £.  £  $  *  <s  $  # :;-.  *  *  ?;* 


*  INITIALIZING  CPU  TIME 

* 

TIMEO  =  CTIMEO 

* 

jfr  *  *  *  *  &  lit  *  *  ffi  *  3*:  Jjt  4c  j*  *  £  *  jfc  <<  *  *  <-.  *  #  fc  £  A  £  fc  *  *  fc  fc  fc  >5t  fc  fc  fc  fc  *  4s  fc  fc  fc  4c  fc  *  fc  fc  fc  *  fc  fc  *  *  fc  fc  fc  *  fc  fc  *  fc  fc  fc  *  *  fc  fc 
fc  fc  fc  fc  fc  £  *  fc  fc  fc  fc.  fc.  fc  fc  fc.  fc  fc.  fc.  fc  fc  fc  fc  fc.  fc  fc.  fc  fc  fc  fc  fc  fc  fc.  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc.  fc  fc  fc.  fc  fc  &  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc  fc.  fc 

*  VARIOUS  PARAMETERS  TO  BE  USED  THROUGHOUT  THE  PROGRAM 

*  WILL  NOW  BE  READ  INTO  THE  PROGRAM. 

WRITE!*.*)  ENTER  TAMB,  THE  AMBIENT  TEMPERATURE.' 

READ(*.*>  TAMB 

WRITE!*,*)  ENTER  TINTT.  THE  INITIAL  TEMPERATURE.' 

READ)*.*)  TINTT 

WRITE!*.*)  ENTER  H.  THE  HEAT  TRANSFER  COEFFICIENT.' 
READ!*.*)  II 

WRITE!*.*)  ENTER  Kl.  THE  THERMAL  CONDUCTIVITY.' 

READ!*.*)  Kl 

WRITE!*.*)  ENTER  CP.  THE  SPECIFIC  HEAT  OF  THE  MATERIAL.' 
READ!*.*)  CP 

WRITE!*,*)  ENTER  RHO.  THE  MATERIAL  DENSITY.' 

READ!*,*)  RHO 
WRITE(*,*)  ENTER  FLUX.' 

READ!*,*)  FLUX 

WRITE!*,*)  ENTER  LX,  THE  LENGTH  IN  THE  X  DIRECTION.' 
READ!*,*)  LX 

WRITE!*,*)  ENTER  LY,  THE  LENGTH  IN  THE  Y  DIRECTION.' 
READ!*,*)  LY 

WRITE!*,*)  ENTER  LZ.  THE  LENGTH  IN  THE  Z  DIRECTION.' 


8S 


READ!*.*)  LZ 

WRITE!*. *)  ENTER  M.  THE  NUMBER  OF  NODES  IN  THE  X  DIRECTION.' 
READ!*,*)  M 

WRITE!*.*)  'ENTER  N,  THE  NUMBER  OF  NODES  IN  THE  V  DIRECTION.' 
READ{*.*)  N 

\VRITE(*,*)  ENTER  P,  THE  NUMBER  OF  NODES  IN  THE  Z  DIRECTION.' 
R£AD(*,*)  P 

WRITE(*,*)  ENTER  FREQ,  THE  NUMBER  OF  TIME  STEPS  BETWEEN' 
WRITE!*,*)  SUCCESSIVE  PRINTINGS.' 

READ!*,*)  FREQ 

WRITE!*,*)  ENTER  VAL:  IF  YOU  WANT  THE  VALIDATION  SUBROUTINE' 
WRITE!*.*)  CALLED.  USE  I:  IF  THE  VALIDATION  SUBROUTINE  IS  NOT' 
WRITE!*,*)  DESIRED,  USE  0.' 

READ!*.*)  VAL 


t’fi  >1*.  rj; ?*t  #  jjs  £  jjt  jjt  r*t  .*•<  ?;*.  &  sjs  £  *  sjc  ijt  j}s  &  >>  £  #  $  ijt  £  jjs  £  .*>.  #  :J:  ?;*.  £  £  $  &  $  r|*.  f-.  :)i 


CALCULATIONS  OF  CONSTANTS  TO  BE  USED  THROUGHOUT  THE 
PROGRAM 


COUNT  =  0 
TIME  =  0.0 


DELX=  LX  (M-l ) 
DELY=  LY  (N-I) 
DELZ=  LZ  (P-1) 


R=  DELX  (DELY*DELZ) 
RI  =  (DELX**2)  (DELY**2) 
R2  =  (DELX**2)  (DELZ**2) 

ALFA  =  K1  !RHO*CP) 

BIO  =  1 1  KU  DELX 
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FO  =  0.5  (1  +  R1  +  R2+  BIO*SQRT(R2)) 
DELT  =  FO*<DELX**2)  ALFA 


*  NOTE:  THE  FOLLOWING  EXPRESSION  FOR  DELT  WAS  USED  FOR 

*  VALIDATING  THE  EXPLICIT  TECHNIQUE  WITH  THE  CLOSED-FORM 

*  SOLUTION. 

* 

*  DELT  *  0. 1 25*(DELY**2)  ALFA 

♦ 

*********************************************************************** 

*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ❖  *  *  *  #  *  *  *  *  *  fc  *  *  *  £  *  *  £  $  £  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

*  INITIALIZE  ALL  TEMPERATURES  TO  TINTT,  THE  INITIAL 

*  TEMPERATURE. 

DO  10  I  =  1.  M 
DO  15  J=  1.  N 
DO  20  K=  1.  P 

* 

TNEW(IJ.K)- TINTT 

* 

20  CONTINUE 
15  CONTINUE 
10  CONTINUE 

❖ 

****** *** ************ ***** **************************** ***************** 
********************************************<************************** 

* 

*  THE  OLD  TEMPERATURES  WILL  NOW  BE  SAVED  FOR  FUTURE  USE 

*  IN  THE  TEMPERATURE  EQUATIONS. 

* 

DO  30  1=  1,  M 
DO  35  J=  1,  N 
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DO  40  K  =  1.  P 


T(IJ.K)  =  TNEW(I.J.K) 

ft 

40  CONTINUE 
35  CONTINUE 
30  CONTINUE 

* 

ft  ftft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  ft  ft  * 
ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  £  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 

ft 

*  INCREMENTING  TIME  AND  COUNTER 

1  COUNT  =  COUNT  +  1 
TIME  =  TIME  t-  DELT 

ft 

£  ft  ft  ft  } ’*.  *  ft  ft  ft  ft  ft ft  ft  ft  ft  ft  ft  ft  *  ft.  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  £  <i  ft  ft  a*t  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 

ft  ft  ft  ft  ft  *  *  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 

ft 

*  NODE  EQUATIONS  FOR  THE  THREE  DIMENSIONAL  BLOCK  ARE 

*  NOW  PRESENTED. 

ft 

ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft-  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 
ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  .ft  ft  ft  ft  ft  ft  ft  ft  ft 


*  INTERIOR  NODES 

* 

DO  50  1  =  2,  M-l 
DO  55  J  =  2.  N-l 
DO  60  K=  2,  P-l 

* 

TNEW(I.J,K)=  T(I.J.K)  +  Rl*FO*(  T(I.J-l.K)  +  T(U+ l.K)  -  2* 
&  T(IJ.K)  )  +  R2*FO*(  T(I,J,K+  1)  +  T(U.K-l)  -  2*T(U,K)  ) 
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&  +  FO*(  T(I  +  1.J.K)  +  T(MJ.K)  -  2*T<U.K) ) 


60  CONTINUE 
55  CONTINUE 
50  CONTINUE 

* 

* 

ft  £  #  $  $  g  4  *  &  *  &  *  *  &  $  &  &  *  $  & 

g  .«>  J";  ^  !j  g  g  g  g  g  g  g  f.  g  g  g  g  g  g  g  g  g  g  g  g  &  &  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  4:  *  g  g  g  g  g  g  g  g  g  g  g  g  g  g  A  g  g  g 

g 

*  CORNER  NODES 

*  CORNER  NR.  1 

1  =  1 
J=  1 
K  =  1 

* 

TNE\V(I.J.K)=  T(I.J.k)  +  2«R2*FO*(  T(U.k  +  I)  -  T(I.J.k')  )  + 

&  2*Rl*FO*(  T(I.J  +  l.k)  -  KEJ.Km  +  2*F0*(  T(I  +  1,J.K)  - 
&  T(I.J.K)  )  +  2*FO*R!*DELY*FLUX  K1 


*  CORNER  NR.  2 

I  =  M 
J=  I 
K=  1 

* 

TNE\V(U,K)«  T(I.J,K)  +  2*R2*FO*(  T(U,K  +  1)  -  T(U,K) )  + 
&  2*Rl*FO*(  T(I,J  +  1,K)  -  T(I,J,K) )  +  2*FO*(  T(I-U,K)  - 
&  T(I,J,k)  )  +  2*F0*R1*DELY*FLUX  kl 


*  CORNER  NR.  3 

* 

1  =  1 
J=  1 
K  =  P 

* 

TNEW(U.K)  =  T(I,J,K)  +  2*FO*(  T(i  +  1,J,K)  -  T(IJ,K) )  + 

&  2*Rl*FO*(T(U-t-l.K)-T(IJ,K))  +  2*R2*FO*(  T(I,J,K-1)  - 
&  T(U.K))  +  2*FO*Rl*DELY*FLUX  K1 

* 

ir- 

*  CORNER  NR.  4 

* 

I  =  M 
J  =  I 
K  =  P 

* 

TNEW(U.K)  =  T(IJ.K)  +  2*FO*(  T(1-1.J,K)  -  T(1.J.K) )  + 

Sc  2*Rl*FO*(  T(I,J  +  l.K)  -  T(I.J.K)  )  +  2*R2*FO*(  T(1,J,K-1)  - 
Sc  T(l.J.K)  )  +  2*FO*Rl  *DELY: FLUX  K1 

* 

* 

*  CORNER  NR.  5 

j». 

1=1 
J  =  N 
K  =  1 

* 

TNEW(1,N,1)  =  T(l,N.l)  +  2*FO*(T(2  ,N,1)  -  T(l,\\l)  )  + 

&  2*Rl*FO*(T(i,N-l.l)-T(l,N,I))+  2*R2*FO*(T(ltN,  2) - 
&  T(1,N,1)  )  +  2*FO*BIO*(RI**0.5)*(  TAMB  -  T(1,N,1) ) 

* 

* 
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*  CORNER  NR.  6 


❖ 


I  =  M 
J  =  N 
K=  i 


TNEW(U,K)  =  T(I,J.K)  +  2*FO*(  T(I-1,J,K)  -  T(U,K) )  + 

&  2*Rl*FO’!,(  T(I.J-1,K)  -  T(I,J.K) )  +  2*R2*FO*(  T(I,J,K+  1)  - 
&  T(I,J,K)  )  +  2*FO*BIO*(RI**0.5)*(  TAMB  -  T(I,J,K)  ) 


*  CORNER  NR.  7 

1=1 
J  =  N 
K  =  P 

TNEW(IJ.K)  =  T(1.J,K)  +  2*FO*(  T(1  +  1J,K)  -  T(I  J,K) )  + 
&  2*Rl*FO*(  T(l.J-l.K)  -  T(U,K)  )  +  2*R2*FO*(  T(I,J,K-1)  - 
&  T(I,J,K)  )  +  2*FO*B 1 0*( R 1 * *0.5)*(  TAMB  -  T(1.J,K) ) 


*  CORNER  NR.  S 


1  =  M 
J  =  N 
K  =  P 


TNEW(U.K)  =  T(I,J,K)  +  2TO*(  T(I-U,K)  -  T(U,K)  )  + 

&  2*Rl*FO*(  T(I,J-1,K)  -  T(I,J,K) )  +  2*R2*FO*(  T(U,K-1)  - 
&  T(U,K) )  +  2*FO*BIO*(R1**0.5)*(  TAMB  -  T(1,J,K) ) 
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❖  i 


*  ADIABATIC  SURFACES 

* 

*  FROM  VZ  SURFACE 


DO  70  J  =  2,  N-l 
DO  75  K  =  2,  P-1 
I  =  M 

TNEW(IJ.K)  =  T(I.J,K)  +  2*FO*(  T(I-1,J,K)  -  T(I,J,K)  )  + 
&  Rl*FO*(  T(lJ-l.K)  +  T(I,J  +  1,K)  -  2*T(I J,K)  )  + 

&  R2*FO*(  T(IJfK-l)  +  T(IJ.K  +  1)  -  2*T(I.J,K)  ) 

75  CONTINUE 
70  CONTINUE 


*  BACK  VZ  ADIABATIC  SURFACE 

DO  SO  J  =  2.  N-l 
DO  85  K  =  2.  P-1 
1=1 


TNEW(IJ.K)  =  T(l.J.K)  +  2*FO*(  T(I  +  1.J.K)  -  T(U,K) )  + 
&  Rl*FO*(  T(I,J-1.K)  +  T(I,J  +  l.K)  *  2*T(IJ,K) )  + 

&  R2*FO*(  T(U,K-1)  +  T(l,JfK+l)-2*T(U,K)) 

85  CONTINUE 
80  CONTINUE 


* 


**£*****  2  »***.-*  It***  lS******!(!***!!!#***Kl#)l!********^***l>********************** 
*  :S  **£«*«**  *  #  *  *  *  *  *  *  *  *  ff  *  *  #  *  *##**«  *  <i  #  *  #*#*<•.******  *  # 
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*  BOTTOM  XV  ADIABATIC  SURFACE 


DO  90  1  =  2,  M-l 
DO  95  J  =  2,  N-l 
K  =  1 

TXEW(U.K)  =  T(I.J,K)  +  FO*(  T(I  +  U,K)  +  T(I-U,K)  - 
&  2*T(IJ,K)  )  +  Rl*FO*(  T(I,J-1,K)  +  T(U  + l.K)  -  2*T(U,K)  )  + 
&  2*R2*FO*(  T(I,J.K  +  1)  -  T(U,K) ) 

95  CONTINUE 
90  CONTINUE 


*  TOP  XV  ADIABATIC  SU  RFACE 

* 

DO  100  1  =  2.  M-l 
DO  105  J=  2.  N-l 
K  =  P 

* 

TNEW(IJ.K)  =  T(I,J,K)  +  FO*(  T(I  +  1.J.K)  +  T(I-1,J.K) - 
&  2*T( I .J.K )  )  +  Rl*FO*(  T(I.J-1,K)  +  T(I,J  +  l.K)  -  2*T(I,J,K)  )  + 
&  2*R2*FO*(  T(U.K-l)  -  T(IJ.K)  ) 

105  CONTINUE 
100  CONTINUE 


************ ********1 *************************************************** 
******************:!:*************<:************************************** 
* 

*  RIGHT  XZ  CONVECTIVE  SURFACE 
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DO  110  1  =  2.  M-l 
DO  115  K  =  2,  P-1 
J  =  N 

TNEW(U.K)  =  T(IJ,K)  +  FO*(  T(I  +  1,J,K)  +  T(I-U,K)- 
&  2*T(U,K) )  +  2*Rl*FO*(  T(I,J-1,K)  -  T(1,J,K) )  +  R2*FO* 
&  (  T(U,K+  1)  +  Til.J.K-1)  -  2*T(U,K)  )  + 

&  2*FO*BIO*<R1**0.5)*(  TA\1B  -  T(I,J,K) ) 

f 

115  CONTINUE 
110  CONTINUE 


4  4  4  4  4  4 4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  *  4  4  4  4  4  4  4  4  4  j?  £  £  4  4  4  4  4  4  4  4  4  4  4  4  A  4  4  4  4  4  *  4  4  4  4  4  4  *  4  4  4  4 
4  *  *  4  *  *  *  4  4  4  *  4  *  *  *  4  *  *  4  4  4  *  *  4  *  4  *  *  4  *  4  *  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  *  4  4 


LEFT  XZ  FLUX  SURFACE 

DO  120  1  =  2.  M-l 
DO  125  K  =  2.  P-1 
J=  1 

TNEW(I.J.K)  =  T(U.K)  +  FO*(  T(I-U,K)  +  T(I  +  U,K)- 
&  2*T(IJ.K>  )  +  2*R1*F0*(  T(I.J+  1,K)  -  T(I.J.K) )  + 

6c  R2*FO*(  T(U.K-l  )  +  T(IJ.K+  1)  -  2*T(I,J.K)  )  + 

&  2*FO*Rl*DELY*FLUX  K1 

125  CONTINUE 
120  CONTINUE 


444444444 4 4 4444444444444444444444444444444444444444444444444444444444444 

*4 *4 *4444 *44*4 44 *4 *4**44 44 4*444*4444**4*4*4*444**4* 4 *4 4*444* *444 4* *4 *4 4* 

4 


97 


OUTER  PERIMETER  SURFACES 


*  PERIMETER  NR.  1 


DO  130  J  =  2,  N-l 
1=1 
K  =  P 

TNEW(I,J.K)  =  T(I.J,K)  +  Rl*FO*(  T(1,J-1,K)  +  T(I,J+1,K) 
&  2*T(I,J,K) )  +  2*FO*(  T(l+  U,K)  -  T(I,J,K) )  + 

&  2*R2*FO*(  T(I,.'.K-1)  *  T(IJ.K) ) 

130  CONTINUE 


*  PERIMETER  NR.  2 

9*i 

DO  135  J  =  2,  N-l 
I  =  M 
K=P 

TNEW(U.K)  =  T(I.J.K)  +  Rl*FO*(  T(UJ-l.K)  +  T(I,J+I,K) 
&  2!:,T(I.J,K)  )  +  2*FO*(  T(1-1.J,K)  -  T(I.J.K)  )  + 

&  2 :  R2*EO:'(  T(I.J,K-1)  -  T(I,J.K)  ) 

135  CONTINUE 

* 

* 

*  PERIMETER  NR.  3 

* 

DO  140  J  =  2,  N-l 
1  =  1 
K  =  1 


9S 


TNEW(IJ.K)  =  T(IJ.K)  +  Rl*FO*{  T(I.J-1.K)  +  T(I,J+1.K)- 
&  2*T(I.J.K)  )  +  2*FO*(  T(I+  1J.K)  -  T(IJ.K)  )  + 

&  2*R2*FO*(  T(IJ.K+1)  -  T(IJ.K)  ) 


140  CONTINUE 

* 

* 

*  PERIMETER  NR.  4 

* 

DO  145  J  =  2,  N-l 
I  =  M 
K  =  1 

TNEW(U.K)  =  T(I J.K)  +  Rl*FO*(  T(U-l.K)  +  T(U  +  1.K)- 
&  2*TiIJ.K)  )  -1-  2-FO:>(  T(I-IJ.K)  -  T(IJ.k')  )  + 

&  2 :  R2*FO':'(  T(U.K  +  1)  -  T(U,K)  ) 

145  CONTINUE 


*  PERIMETER  NR.  5 

DO  150  K  =  2,  P- 1 
I  =  M 
J  =  N 

TNEW(U.K)  =  T(U,K)  +  R2*FO*(  T(U,K+I)  +  T(U,K-1)- 
&  2*T(IJ,K) )  +  2*Rl*FO*(T(U-I,K)-T(U,K))  + 

&  2*FO*(  T(1-1,J,K)  -  T(U,K) )  +  2*FO*BlO*(Rl**0.5)*{  TAMB  - 
&  T(U,K)  ) 

* 

150  CONTINUE 
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*  PERIMETER  NR.  6 

* 

DO  155  K  =  2,  P-1 
1  =  1 
J  =  N 

* 

TNEW(I,J,K)  =  T(U,K)  +  R2*FO*(  T(U,K  +  1)  +  T(U,K-1)- 
&  2*T(U,K) )  +  2*Rl*FO*(  T(I,J-1,K)  -  T(I,J,K)  )  + 

&  2*FO*(  T(I  +  1,J.K)  -  T(1,J.K) )  +  2*FO*BlO*(Rl**0.5)*(  TA.MB 
&  -  T{1J.K)  ) 

* 

155  CONTINUE 


*  PERIMETER  NR.  7 

•»> 

DO  160  K  =  2,  P-I 
I  =  M 
J=  1 


TNEW(IJ.K)  =  T(1.J.K)  +  FO*R2*(  T(I,J.K-H)  +  T(UJ.K-l)- 
&  2*T(1J,K)  )  +  2*FO*(  T(I-U.K)  -  T(IJ.K)  )  + 

&  2*FO*Rl*(  T(U+  1,K)  -  T(I.J,K)  )  +  2*FO*R!*DELY*rLUX  K1 

160  CONTINUE 


*  PERIMETER  NR.  8 

* 

DO  165  K=  2,  P-1 
1=1 
J=  1 


TNEW(I,J.K)  =  T(I.J.K)  +  FO*R2*(  T(U,K+1)  +  T(U.K-l)- 
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&  2*T(IJ.K)  )  +  2*F0*(  T(I  +  1.J.K)  -  T(I  J.K)  )  + 

&■  2*F0*R1:(  T(IJ+  l.K)  -  T(I.J,K)  )  +  2*F0*R1*DELY*FLUX  Kl 

165  CONTINUE 

* 

* 

*  PERIMETER  NR.  9 


DO  170  1  =  2.  M-l 
J  =  N 
K  =  1 


TNEW(U.K)  «  T(I.J.K)  +  2*FO*Rl*(  T(U-1,K)  -  T(1.J.K)  )  + 
&  2*FO*R2*(  T(I.J.K-  1)  -  T(IJ.K)  )  +  FO*(T(I  +  l,J.K)  + 

&  T(I-IJ.K)  -  2*T(U.K)  )  +  2*FO*BIO*(R1**0.5)*(  TAMB  - 
&  T(IJ.K)  ) 

170  CONTINUE 


*  PERIMETER  NR.  10 

* 

DO  175  1  =  2.  M-l 
J  =  N 
K  =  P 

❖ 

TNEW(U.K)  =  T(I,J,K)  +  2*FO*Rl*(  T(U-1,K)  -  T(U,K) )  + 
&  2*FO’>R2*(  T(I,J,K-1)  -  T(U.K) )  +  FO*(  T(I  +  U,K)  + 

&  T(I-1,J,K)  -  2*T(1,J,K) )  +  2*IFO*BIO*(R1*!S0.5)*(  TAMB  - 
&  T(I,J,K) ) 

* 

175  CONTINUE 

* 

* 
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*  PERIMETER  NR.  11 


DO  ISO  1  =  2,  M-l 
J=  1 
K  =  P 

TNEW(I,J,K)  =  T(I,J,K)  +  FO*(  T(I  +  1,J,K)  +  T(I-1,J,K)- 
&  2*T(IJ,K))  +  2*FO*Rl*(T(I,J  +  l,K)-T(U,K))  + 

&  2*FO*R2*(  T(U,K-1)- T(U,K)  )  +  2*FO*Rl*DELY*FLUX  K1 

ISO  CONTINUE 


*  PERIMETER  NR.  12 

DO  185  1  =  2.  M-l 
J=  1 
K  =  1 

TNEW(IJ.K)  =  T(U.K)  +  FO*(  T(I+U,K)  +  T(I-IJ,K) - 
&  2:T(I.J.K )  )  +  2*FO*Rl*(  T(U+ 1,K)  -  T(U,K)  )  + 

&  2*FO*R2*(  T(IJ.K+  1)  -  T(I.J,K)  )  +  2*FO*Rl*DELY*FLUX  K1 

1S5  CONTINUE 


* 

*«&*#****«*$*: >  ***«*$***«**ft £****«**%«** ********************************* 
*«*****«****♦****♦* ******««**46**ft****ft*****4t*************************** 

* 

*  UPDATING  THE  OLD  NODE  TEMPERATURES  TO  THE  NEW 

*  NODE  TEMPERATURES. 

* 


DO  200  1  =  1,  M 
DO  205  J=l.  N 


102 


DO  210  K  =  1.  P 


T(I.J.K)=  TNEW(IJ.K) 

£ 

210  CONTINUE 
205  CONTINUE 
200  CONTINUE 

* 

4  $  ft  $  *  «  $  $  &  $  $  $  $  «  $  $  £  $  £  $  $  $  $  £  $  &  $  #  *  #  ❖#<*•  a**************#****#**********^****** 

#  *  <5  <;  £  ;j!  *  *  *  *  $  jjs  #  *  *  *  <i  ;>  <&  <-.  jfc  <*.  ags  *  <*.  &  <-.  jfs  *  :>.  #  i;.  *•- 1- 1-  <*•  *  *  ’>  #  <*  *  *  *  *  *  *  *  ❖  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 


*  THIS  PART  OF  PROGRAM  DETERMINES  IF  SUBROUTINE  VALID  OR 

*  SUBROUTINE  VALID  IS  TO  BE  CALLED.  IF  THE  USER  DESIRES  TO 

*  VALIDATE  THE  PROGRAM  IN  CONJUNCTION  WITH  PROGRAM  BRIAN 

*  AND  PROGRAM  VALID.  THEN  THE  SUBROUTINE  OUTPUT  WILL  BE 

*  BYPASSED. 


IF(VAL  .NE.  1)  GO  TO  250 
IF(TIME  .EQ.  DELT)  CALL  VALID 
I F( COUNT  .NE.  TREQ)  GO  TO  300 
CALL  VALID 
GO  TO  300 


250  1F(TIME  .EQ.  DELT)  CALL  OUTPUT 
I F( COUNT  .NE.  FREQ)  GO  TO  300 
CALL  OUTPUT 

* 

300  IF  (TIME  .LE.  3600)  GO  TO  1 
* 

*  NOTE:  THE  TIME  PERIOD  WAS  ARBITRARILY  TAKEN 

*  AS  3600  SECONDS  (1  HOUR). 

* 

PRINT- 
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PRINT* 

* 

*  CALCULATING  AND  PRINTING  CPU  TIME 

* 

TIME1  =  CTIMEO 
CALL  UMACH(2.NOUT) 

WRITE(NOUT.*)  CPU  TIME  (SECONDS)  =  ',  TIME1-TIMEO 

* 

STOP 

END 


f;.  #  jJ;  ^  jjt  <s  i'fi  jj?  }).  *  £  £  £  ^  jjt  *  :Js  v-  »}i  jjt  »Js  #  ijt  £  jfc  jjt  <s  »Ji  j*  *  $  sj:  4:  >{:  £  >J:  x}:  jjc  £  &  £.  : JuJi  <5  <1  ♦  sfc  sfc  *Jt  jjt  s!:  $  &  ♦  <*  £  *!»  #  <s  ❖  fls  >Jt  <*. 

j*!  :*■;  »Js  j;*.  j).  j)s  #  #  jjt  jJj  j**  jji  i*.  :Js  j).  *  j*».  ?’t  £  >Js  £  *  $  jjs  jfc  £  $  j}:  $  £  £  £  »Jt  $  £  sj:  !*s  #  sjs  #  ij:  £  $  ijt  ijt  <s  jjs  #  <t  £  sir-  sj*.  >;■.  £  aji  sk  :]•.  ijs  s;*. 


*  THIS  SU  BROUTINE  WILL  BE  USED  FOR  PRINTING  THE  NODE 

*  TEMPERATURES. 

is 

SUBROUTINE  OUTPUT 

sis 

DIMENSION  T( 25,25.25).  TNEW(25, 25.25) 

* 

REAL  TAMB.  H.  RHO.  ALFA.  FO.  FLUX,  R.  Rl,  R2,  KI 

REAL  DELX,  DULY,  DELZ.  DELT,  TIME.  T1NTT,  TNEW,  BIO 

REAL  TDIFE1,  TDIFE2,  TDIFE3 

REAL  LX.  LY,  LZ 

REAL  CTIME,  TIME 0,  TIME! 

* 

INTEGER  I,  J,  K,  M,  N,  P,  COUNT,  FREQ,  VAL,  NOUT 

* 

COMMON  TNEW,  TIME,  DELT,  M,  N,  P,  TDIFE1,  TDIFE2,  TDIFE3,  TINIT 
COMMON  COUNT,  FREQ 

* 

\VRITE(*.*)  TIME  =  '.TIME 
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PRINT* 

* 

350  DO  370  K=  1,  P 
* 

WRITE(V)  TEMPERATURE  DISTRIBUTION  ON  PLANE' 
\VRITE(6,360)  K=-',K 
360  FORMAT(A3,I2) 

PRINT* 

PRINT  380,  ((TNE\V(I,J,K),  J  =  1,N),  1=  l.M) 

380  FORMAT(lX,F6.I.lX.F6.1,lX,F6.1,lX,F6. 1,IX,F6.1,1X,F6. 1,1X,F6.1, 
&  1X.F6.1,1X.F6.1.1X,F6.1,1X,F6.L  ) 

* 

PRINT* 

PRINT* 

g 

370  CONTINUE 

y. 

*  REINITIALIZING  THE  COUNTER  TO  ZERO 


COUNT  =  0 

* 

RETURN 

END 

g 

g  g  g  g  g  g  g  g  g  g  g  g  *  g  g  *  *  *  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  gggggggg  g  *  g  g  g  *  g  g  *  g  g  g  g  g  g  g  g  g  g  g 
g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  *  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g 


SUBROUTINE  VALID 

DIMENSION  T(25,25,25),  TNEW(25,25,25) 

REAL  TAMB,  H,  RHO,  ALFA,  FO,  FLUX,  R.  Rl.  R2,  K1 
REAL  DELX.  DELY.  DELZ.  DELT,  TIME,  TINIT,  TNEW,  BIO 
REAL  TDIFE1,  TDIFE2.  TD1FE3 
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REAL  LX,  LY.  LZ 

REAL  CTIME.  TIMEO.  TIME1 


INTEGER  I,  J,  K.  M.  N,  P,  COUNT,  FREQ.  YAL,  NOLT 

COMMON  TNEW,  TIME,  DELT,  M,  N.  P,  TDIFE1,  TDIFE2,  TDIFE3,  TINIT 
COMMON  COUNT,  FREQ 

TDIFE1  =  TNE\V(  5,11,  5)- TINIT 
TDIFE2  =  TNEW(  5,  5.  5)-  TINIT 
TDIFE3  =  TNEW(  5,  1.  5)-  TINIT 

I F(TJME  .NE.  DE:  T)  GO  TO  450 
PRINT* 

PRINT* 

WRITEf*,*)  TIME(SFC)  TD1FE1  TD1FE2  TDIFE3' 


450  PRINT  460.  TIME.  TDIFE1.  TDIFE2.  TDIFE3 
460  FORMAT!  1X.FS.3.3X.F7.3,3X.F?.3.3X.F7.3) 

!!  REINITIALIZING  THE  COUNTER  TO  ZERO 

COUNT  =  0 


RETURN 

END 


ft*******************^************************************************** 
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APPENDIX  D 


PROGRAM  BRIAN 


ftftftftftftftftftftftftftftftftftftftftftft^ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft ****** 
* 

*  PROGRAM  BRIAN 

• 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft  ftftftftftftftftftftftftftftftft 


*  BRIAN'S  METHOD  FOR  TRANSIENT  HEAT  CONDUCTION  IN  THREE 

*  DIMENSIONAL  CARTESIAN  COORDINATES 


ft  ft ***************  <.*4*4* ******** ************** ******* ftftftftftftftftftftftftftftftftftftft 
ft  *  *  ft  *  m  &  ft  ft  ft  ft  ft  ft  ft  ft  <.  ft  ft  ft  ft  ft  ft  ft  ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 
ft 


*  DESCRIPTION  OF  VARIABLES  USED  IN  PROGRAM  BRIAN 

ft 

*  NOTE:  SI  UNITS  ARE  USED  IN  THIS  PROGRAM  UNLESS 

*  OTHERWISE  SPECIFIED 

ft 

*  1.  USER  SPECIFIED  VARIABLES 

ft 

*  A.  GEOMETRIC  DIMENSIONS: 

ft 

*  DELX-DI STANCE  INCREMENT  IN  THE  X  DIRECTION 

*  DELY-DISTANCE  INCREMENT  IN  THE  Y  DIRECTION 

*  DELZ-DI STANCE  INCREMENT  IN  THE  Z  DIRECTION 


I— -X  COORDINATE  OF  NODE 
J— -Y  COORDINATE  OF  NODE 
K— - Z  COORDINATE  OF  NODE 
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LX— LENGTH  OF  MODEL  IN  X  DIRECTION 
LY— LENGTH  OF  MODEL  IN  Y  DIRECTION 
LZ— LENGTH  OF  MODEL  IN  Z  DIRECTION 

M- — NUMBER  OF  NODES  IN  THE  X  DIRECTION 
N— -NUMBER  OF  NODES  IN  THE  Y  DIRECTION 
P— -NUMBER  OF  NODES  IN  THE  Z  DIRECTION 


B.  MATERIAL  PROPERTIES: 

CP— SPECIFIC  HEAT 

Kl— THERMAL  CONDUCTIVITY 

RHO--DENSITY 


C.  INITIAL  DATA: 

SUBSCIPTS  HAVE  THE  FOLLOWING  MEANING: 

1 - LEFT  FACE 

2- RIGHT  FACE 

3- BOTTOM  FACE 

4- TOP  FACE 

5-  FRONT  FACE 

6- BACK  FACE 

BIOl, 2,3, 4,5.6 BIOT  NUMBER 

DELT . TIME  INCREMENT 

EPSl,2,3,4,5,6 . EMISSIVITY 

FLUX  1,2, 3, 4,5, 6— -SURFACE  FLUX 

FREQ . NUMBER  OF  TIME  STEPS  BETWEEN  SUCCESSIVE 

TEMPERATURE  PRINTOUTS 

GEN . ENERGY  GENERATION  TERM 

HI. 2. 3.4. 5.6 . HEAT  TRANSFER  COEFFICIENT 

SIG1.2.3,4,5.6 . STEFAN-BOLTZMANN  CONSTANT  (USE  0  IF  NO 


RADIATION  HEAT  TRANSFER:  USE  5.67E-S  IF 
RADIATION  HEAT  TRANSFER  PRESENT) 
TAM Bl. 2,3.4. 5, 6— -AMBIENT  TEMPERATURE 


TINTT . INITIAL  TEMPERATURE  OF  ALL  NODES 

VAL . LOGIC  NUMBER  TO  DETERMINE  IF  VALIDATION 


TEST  IS  TO  BE  RUN 


*  D.  ADDITIONAL  VARIABLES  FOR  SATELLITE  APPLICATIONS: 

ij? 

*  ABSI.2.3.4,5,6 . ABSORPTIVITY 


*  ALBCO . ALBEDO  COEFFICIENT 

ALT . ALTITUDE  OF  SATELLITE  IN  KILOMETERS 

EARTH . EARTH  FLUX  (NOTE:  THE  ABSORPTIVITY  FOR 

EARTH  FLUX  HAS  THE  SAME  VALUE  AS  THE 
EWISSIVITY  FOR  RADIATION  HEAT  TRANSFER 
SINCE  BOTH  ARE  IN  THE  INFRA  RED  REGION) 

*  ECLIPS— - . PERIOD  OF  TIME  IN'  MINUTES  THE  SATELLITE 

IS  IN  THE  SHADOW  OF  THE  EARTH 

*  FA . GEOMETRIC  FACTOR  FOR  ALBEDO  FLUX 

*  FE . GEOMETRIC  FACTOR  FOR  EARTH  FLUX 

SAC  1.2. 3.4. 5, 6 . SOLAR  ASPECT  COEFFICIENTS 

*  SOLAR . SOLAR  FLUX 


*  2.  NON-USER  VARIABLES 

* 

*  A.  GENERAL: 

*  A.B.C.D . COEFFICIENT  VECTORS  FOR  SOLVING  THE 

*  TEMPERATURE  EQUATIONS  IN  SUBROUTINE  TRIDAG 

*  BETA . VECTOR  OF  INTERMEDIATE  COEFFICIENTS  SOLVED 


109 


SUBROUTINE  TRIDAG 
BIOT  1.2. 3, 4,5.6— BIOT  NU  MBER 


*  COUNT . COUNTER  FOR  DETERMINING  THE  NUMBER  OF 

*  ELAPSED  TIME  STEPS 

*  FO . FOURIER  NUMBER 

*  GAMMA . VECTOR  OF  INTERMEDIATE  COEFFICIENTS 

*  SOLVE  IN  SUBROUTINE  TRIDAG 

*  IF.L . NUMBERS  CORRESPONDING  TO  THE  FIRST  AND  LAST 

*  EQUATIONS  TO  BE  SOLVED  IN  SUBROUTINE  TRIDAG 

*  QDOT . MATRIX  OF  NODES  DEALING  WITH  ENERGY 

*  GENERATION 

*  T . MATRIX  OF  TEMPERATURES  AFTER  HALF-TIME  STEP 

*  IN  THE  Z  DIRECTION 

*  TEMP . TEMPORARY  STORAGE  VECTOR  FOR  TEMPERATE  RES 

CAI  CULATED  IN  SUBROUTINE  TRIDAG 

*  TIME . DURATION  OF  CALCULATIONS 

*  TSTARi . MATRIX  OF  TEMPERATURES  AFTER  HALF-TIME  STEP 

*  IN  THE  X  DIRECTION 

*  TSTAR2 . MATRIX  OF  TEMPERATURES  AFTER  HALF-TIME  STEP 

*  IN  THE  Y  DIRECTION 

ft 


B.  ADDITIONAL  VARIABLES  FOR  SATELLITE  APPLICATIONS: 

ALBEDU.3, 4.5.6— ALBEDO  FLUX  RECEIVED  ON  A  SURFACE 

DIST . SUM  OF  EARTH  RADIUS  AND  SATELLITE  ALTITUDE 

EARTH  1,2, 3,4.5, 6— EARTH  FLUX  RECEIVED  ON  A  SURFACE 

MU . GRAVITATIONAL  CONSTANT 

PERIOD . THE  TIME  FOR  ONE  SATELLITE  ORBIT 

RE . RADIUS  OF  THE  EARTH 

SOLARl.2,3,4,5,6— SOLAR  FLUX  RECEIVED  ON  A  SURFACE 

SUN . THE  TIME  IN  MINUTES  THE  SATELLITE  RECEIVES 

SUNLIGHT  DU  RING  ONE  ORBIT 


no 


*  C.  VARIABLES  FROM  EXTERNAL  PROGRAMS: 

* 

*  CTIME . USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

*  AMOUNT  OF  CPU  TIME  USED 

*  NOUT . USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

*  AMOUNT  OF  CPU  TIME  USED 

*  TIMEO CPU  TIME  AT  BEGINNING  OF  CALCULATION'S 

*  TIME1 CPU  TIME  AT  END  OF  CALCULATIONS 

*  UMACH . USED  IN  EXTERNAL  IMSL  ROUTINE  FOR  DETERMINING 

*  AMOUNT  OF  CPU  TIME  USED 


g  g  g  g  g  g  g  g  g  *  g  g  *  g  *  g  g  *  *  g  g  g  *  g  g  g  g  g  g  g  g  g  *  g  g  *  g  g  g  g  g  g  *  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  *  $  *  g  g  g  *  *  g  £ 


*  #  *  *  *  g  g  *  *  *  *  *  *  *  *  g  g  g  g  g  g  g  g  g  g  *  g  g  g  g  *  g  g  g  g  g  g  g  g  g 


g  gg g  g g g g g g  g g g 


DIMENSION  A(  30).  B(  30).  C(  30).  D(  30).  TEM P(  30) 
DIMENSION  BETA(  30).  GAMMA(  30).  QDOT(30,  30,  30) 
DIMENSION  T(  30,  30.  30).  TSTARI(  30.  30,  30) 
DIMENSION  TSTAR2)  30.  30.  30) 

REAL  TINTT.  TSTAR1.  TSTAR2,  T,  TEMP 

REAL  CP.  Kl.  RHO.  R.  RI.  R2.  TIME.  DELT 

REAL  LX.  LY.  LZ.  DELX.  DELY,  DELZ 

REAL  A.  B,  C,  D,  BETA.  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

REAL  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

REAL  Ul,  U2,  U3,  U4,  U5 

REAL  VI,  V2.  V3,  V4,  V5,  V6 

REAL  WI,  W2,  W3,  W4.  W5,  W6 

REAL  XI,  X2.  X3,  X4,  X5.  X6 
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REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 
REAL  QDOT,  GEN.  VI 
REAL  CTIME.  TIMEO,  TIME1 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  D1ST,  ALT,  FE,  FA,  MU 
REAL  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
REAL  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 
REAL  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
REAL  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 
REAL  SAC  1 ,  SAC2,  SAC 3,  SAC4,  SAC 5,  SAC6 
REAL  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 
REAL  PI,  P2,  P3.  P4,  P5,  P6 


INTEGER  I.  J.  K.  M,  N.  P.  IF.  L,  IFP1.  LAST,  G,  Q 
INTEGER  COUNT.  FREQ.  ANSI,  ANS2.  ANS3,  VAL,  NOUT 

EXTERNAL  CTIME.  UMACH 

COMMON  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP.  Kl,  RHO,  R.  Rl,  R2.  TIME.  DELT 

COMMON  LX.  LY,  LZ.  DELX.  DELY.  DELZ 

COMMON  I.  J.  K,  M,  N.  P,  IF,  L.  IFP1,  LAST 

COMMON  A.  B,  C.  D.  BETA.  GAMMA,  G.  Q 

COMMON  FLUX  I,  FLUX2.  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI.  H2,  H3.  H4.  H5.  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  Ul,  U2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  W2,  \V3,  W4,  W5,  W6 

COMMON  XI,  X2,  X3,  X4,  X5,  X6 

COMMON  COUNT,  FREQ,  ANSI,  ANS2,  ANS3,  VAL,  NOUT 
COMMON  EPS1,  EPS2.  EPS 3.  EPS4,  EPS5,  EPS6 
COMMON  QDOT,  GEN.  YI 


112 


COMMON  TIMEO,  TIM  El 

COMMON  SOLAR.  EARTH.  RE.  DIST,  ALT.  FE,  FA,  MU 
COMMON  SOLAR1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
COMMON  EARTH1,  EARTH2,  EARTH3,  EARTH4.  EARTHS,  EARTH 6 
COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABSS,  ABS6 
COMMON  SAC1.  SAC2,  SAC3,  SAC4,  SAC5,  SAC6 
COMMON  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 
COMMON  PI,  P2.  P3,  P4,  P5,  P6 


£  <*.  #  ft  ft  ft  ft  $  ft  ft  :!*.  ft  ft  t  ft  ft  ft  ft A  ft  v  v  A ft  A  ft.  A  A  A  A  A  A  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  $  £  &  £  ft  A  A  ft  ft  ft  ft  <t 


INITIALIZING  CPU  TIME 
TIMEO  =  CTIMEO 


A  ft  A  ft  A  A  ft  A  f.  ft  A  A  A ft.  ft.  A  ft  ❖  ft  A  ft  <s  v-  ft  ft  ft  ft.  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  ft  ft  *5*  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  A  A  A  ft 
ft  ft  .'I:  ft  *  A  ft  ft  A  A  A  ft  *  ft  ft  *  ft  ft  *  ft  ft  ft  A  ft  *  A  A ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  *  *  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  ft  ft  ft  ft  ft  *  *  A  ft  ft  * 


*  VARIOUS  PARAMETERS  TO  BE  USED  THROUGHOUT  THE  PROGRAM 

*  WILL  NOW  BE  READ  INTO  THE  PROGRAM. 

WRITE(V)  ENTER  TINIT,  THE  INITIAL  TEMPERATURE.' 

READ(*,*>  TINIT 

WRITE(’v  )  ENTER  KI,  THE  THERMAL  CONDUCTIVITY.' 

READ(*,*)  Kl 

WRITE(*,*)  ENTER  CP,  THE  SPECIFIC  HEAT  OF  THE  MATERIAL.' 
READ(*,*)  CP 

WRITE(V)  ENTER  RHO,  THE  MATERIAL  DENSITY.' 

READ(*,*)  RHO 

WRITER, *)  ENTER  GEN,  THE  INITIAL  GENERATION  TERM.' 
READ(*.*)  GEN- 

WRITE!*,*)  ENTER  LX,  THE  LENGTH  IN  THE  X  DIRECTION.' 
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READ!*,*)  LX 

WRITE!*.*)  ENTER  LV,  THE  LENGTH  IN  THE  Y  DIRECTION.' 

READ!*.*)  LY 

WRITE!*,*)  ENTER  LZ,  THE  LENGTH  IN  THE  Z  DIRECTION.' 

READ!*,*)  LZ 

WRITE!*,*)  ENTER  M,  THE  NUMBER  OF  NODES  IN  THE  X  DIRECTION.' 
READ(*,*)  M 

WRITE!*,*)  ENTER  N,  THE  NUMBER  OF  NODES  IN  THE  Y  DIRECTION.' 
READ!*,*)  N 

WRITE!*,*)  ENTER  P,  THE  NUMBER  OF  NODES  IN  THE  Z  DIRECTION.' 
READ!*.*)  P 

WRITE!*,*)  ENTER  DELT.  THE  TIME  INCREMENT  IN  SECONDS.' 

READ)*.*)  DELT 

WRITE!*.*)  ENTER  FREQ.  THE  NUMBER  OF  TIME  STEPS  BETWEEN' 
WRITE!*.*)  SUCCESSIVE  PRINTOUTS. 

READ!*.*)  FREQ 

WRITE!*,*)  ENTER  ALT.  THE  SATELLITE  ALTIT1UDE  IN  KILOMETERS. 
WRITE!*.*)  NOTE:  FOR  AN  EARTH-BASED  MODEL,  ENTER  0  FOR  ALT.' 
READ!*,*)  ALT 

WRITE!*,*)  ENTER  ECLIPS.  THE  TIME  IN  MINUTES  THE  SATELLITE  WILL- 
WRITE!*,*)  BE  IN  THE  SHADOW  OF  THE  EARTH  DURING  AN  ORBIT.' 
WRITE!*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  ECLIPS.' 
READ!*.*)  ECLIPS 

WRITE!*.*)  ENTER  FE.  THE  GEOMETRIC  FACTOR  FOR  EARTH  FLUX.' 
WRITE!*,*)  NOTE:  FOR  GEOSYNCHRONOUS  SATELLITES  AND 
WRITE!*,*)  EARTH-BASED  MODELS,  ENTER  0  FOR  FE.' 

READ!*,*)  FE 

WRITE!*,*)  ENTER  FA,  THE  GEOMETRIC  FACTOR  FOR  ALBEDO  FLUX.' 
WRITE!*,*)  NOTE:  FOR  GEOSYNCHRONOUS  SATELLITES  AND 
WRITE!*,*)  EARTH-BASED  MODELS,  ENTER  0  FOR  FA.' 

READ!*,*)  FA 

WRITE!*,*)  ENTER  SOLAR,  THE  SOLAR  FLUX.’ 

WRITE!*,*)  NOTE:  AVERAGE  ANNUAL  VALUE  IS  1353.' 

WRITE!*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  SOLAR. 


114 


READ/.*)  SOLAR 

WRITE//)  ENTER  EARTH,  THE  THERMAL  RADIATIVE  FLUX  OF  EARTH. 
WRITE//)  NOTE:  AVERAGE  ANNUAL  VALUE  IS  237.' 

WRITE//)  NOTE:  FOR  GEOSYNCHRONOUS  SATELLITES  AND' 

WRITE//)  EARTH-BASED  MODELS,  ENTER  0  FOR  EARTH.' 

READ//)  EARTH 

WRITE//)  ENTER  ALBCO,  THE  ALBEDO  COEFFICIENT.' 

WRITE//)  NOTE:  AVERAGE  ANNUAL  VALUE  IS  O.3.' 

WRITE//)  NOTE:  FOR  GEOSYNCHRONOUS  SATELLITES  AND 
WRITE//)  EARTH-BASED  MODELS,  ENTER  0  FOR  ALBCO.' 

READ//)  ALBCO 

WRITE//)  ENTER  VAL:  THIS  WILL  DETERMINE  IF  YOU  WANT  THE' 
WRITE//)  THE  VALIDATION  SUBROUTINE  CALLED.  IF  YOU  WANT' 
WRITE!-/)  THE  VALIDATION  SUBROUTINE  CALLED,  ENTER  1  FOR' 
WRITE/.*)  'YES.  IF  YOUR  ANSWER  IS  NO.  ENTER  0.' 

READ!*.*)  VAL 


INPUTS  FOR  LEFT  FACE 

WRITE!*.*)  ENTER  TAMB1,  THE  AMBIENT  TEMP.  ON  THE  LEFT  FACE.' 
READ/.*)  TAMB1 

WRITE!*,*)  ENTER  HI.  THE  LEFT  FACE  HEAT  TRANSFER  COEFFICIENT.' 
READ!*,*)  HI 

WRITE!*.*)  ENTER  FLUXl,  THE  FLUX  ON  THE  LEFT  FACE.’ 

READ!*.*)  FLUXl 

WRITE!*,*)  ENTER  SIG1,  THE  LEFT  FACE  STEFAN-BOLTZMANN' 
WRITE!*,*)  CONSTANT.  NOTE:  IF  RADIATION  NOT  INVOLVED, 
WRITE!*,*)  ENTER  0  FOR  SIG1.' 

READ!*,*)  SIG1 

WRITE!*,*)  'ENTER  EPS1,  THE  LEFT  FACE  EMISSIVITY.' 

READ!*,*)  EPS1 

WRITE!*,*)  ENTER  ABS1,  THE  LEFT  FACE  ABSORPTIVITY.' 

WRITE!*.*)  NOTE:  FOR  EARHT-BASED  MODELS,  ENTER  0  FOR  ABS1.' 
READ!*.*)  ABSi 
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WRITE!*,*)  ENTER  SACK  THE  LEFT  FACE  SOLAR  ASPECT  COEFFICIENT. 
WRITE!*,")  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  SACK 
REACH*,*)  SAC1 

* 

*  INPUTS  FOR  RIGHT  FACE 

fjt 

WRITE(*,*)  ENTER  TAMB2,  THE  AMBIENT  TEMP.  ON  THE  ' 

WRITE!*,*)  RIGHT  FACE.' 

READ!*,*)  TAMB2 

WRITE!*.*)  ENTER  H2.  THE  RIGHT  FACE  HEAT  TRANSFER- 
WRITE!*,*)  COEFFICIENT.' 

READ)*.*)  H2 

WRITE!*,*)  ENTER  FLUX2,  THE  FLUX  ON  THE  RIGHT  FACE.' 

READ!*,*)  FLUX2 

WRITE!*,*.)  ENTER  SIG2,  THE  RIGHT  FACE  STEFAN-BOLTZMANN 
WRITE!*.*)  CONSTANT.' 

WRITE!*.*)  NOTE:  IF  RADIATION  NOT  INVOLVED,  ENTER  0  FOR  SIG1.' 
READ!*.*)  S1G2 

WRITE!*.*)  ENTER  EPS2,  THE  RIGHT  FACE  EMISSIVITY.' 

READ!*,*)  EPS2 

WRITE!*.*)  ENTER  ABS2.  THE  RIGHT  FACE  ABSORPTIVITY.' 

WRITE!*.*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  ABS2.' 
READ!*.*)  ABS2 

WRITE!*.*)  ENTER  SAC2,  THE  RIGHT  FACE  SOLAR  ASPECT' 

WRITE!*.*)  COEFFICIENT  NOTE:  FOR  EARTH-BASED  MODELS.' 
WRITE!*,*)  ENTER  0  FOR  SAC2.' 

READ!*,*)  SAC2 

* 

*  INPUTS  FOR  BOTTOM  FACE 

* 

WRITE!*,*)  ENTER  TAMB3,  THE  AMBIENT  TEMP.  ON  THE' 

WRITE!*,*)  BOTTOM  FACE.' 

READ!*,*)  TAMB3 

WRITE!*.*)  ENTER  H3,  THE  BOTTOM  FACE  HEAT  TRANSFER' 
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WRITE(V)  'COEFFICIENT.' 

READ!*,*)  H3 

WRITE!*,*)  ENTER  FLUX3,  THE  FLUX  ON  THE  BOTTOM  FACE.' 
READ!*,*)  FLUX3 

\VR1TE(V)  ENTER  S1G3,  THE  BOTTOM  FACE  STEFAN-BOLTZMANN' 
WRITE!*,*)  CONSTANT.' 

WRITE!*,*)  NOTE:  IF  RADIATION  NOT  INVOLVED,  ENTER  0  FOR  SIG3.' 
READ!*,*)  SIG3 

WRITE!*, *)  ENTER  EPS3,  THE  BOTTOM  FACE  EMISSIVITY.' 

READ!*,*)  EPS3 

WRITE!*,*)  ENTER  ABS3.  THE  BOTTOM  FACE  ABSORPTIVITY.' 
WRITE!*.*)  NOTE:  FOR  EARTH-BASED  MODELS.  ENTER  0  FOR  ABS3.' 
READ!*.*)  ABS3 

WRITE!  *,*)  ENTER  SAC3.  THE  BOTTOM  FACE  SOLAR  ASPECT' 
WRITE!*.*)  COEFFICIENT.  NOTE:  FOR  EARTH-BASED  MODELS.' 
WRITE!*.*)  ENTER  0  FOR  SAC3.' 

READ!*,*)  SAC3 


INPUTS  FOR  THE  TOP  FACE 

WRITE!*,*)  ENTER  TAMB4.  THE  AMBIENT  TEMP.  ON  THE  TOP  FACE.' 
READ!*.*)  TAMB4 

WRITE!*.*)  ENTER  H4.  THE  TOP  FACE  HEAT  TRANSFER  COEFFICIENT.' 
READ!*,*)  H4 

WRITE!*.*)  ENTER  FLUX4.  THE  FLUX  ON  THE  TOP  FACE.' 

READ!*,*)  FLUX4 

WRITE!*,*)  ENTER  SIG4,  THE  TOP  FACE  STEFAN-BOLTZMANN' 
WRITE!*,*)  CONSTANT.  NOTE:  IF  RADIATION  NOT  INVOLVED,' 
WRITE!*,*)  'ENTER  0  FOR  SIG4.' 

READ!*.*)  SIG4 

WRITE!*,*)  ENTER  EPS4,  THE  TOP  FACE  EMISSIVITY.' 

READ!*,*)  EPS4 

WRITE!*,*)  ENTER  ABS4,  THE  TOP  FACE  ABSORPTIVITY.' 

WRITE!*.*)  NOTE:  FOR  EARTH-BASED  MODELS.  ENTER  0  FOR  ABS4. 
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READ!*.*)  ABS4 

WRITE!*,*)  ENTER  SAC4.  THE  TOP  FACE  SOLAR  ASPECT  COEFFICIENT.' 
WRITE!*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  SAC4.' 
READ!*,*)  SAC4 

* 

*  INPUTS  FOR  THE  FRONT  FACE 

* 

WRITE(V)  ENTER  TAMB5,  THE  AMBIENT  TEMP.  ON  THE  FRONT  FACE.' 
READ!*,*)  TAMB5 

WRITE!*,*)  'ENTER  H5,  THE  FRONT  FACE  HEAT  TRANSFER' 

WRITE(*,*>  COEFFICIENT.' 

READOUT  H5 

WRITE!*.*)  ENTER  FLUX5,  THE  FLUX  ON  THE  FRONT  FACE.' 

READ!*.*)  FLUX5 

WRITE(*,*)  ENTER  SIG5,  THE  FRONT  FACE  STEFAN-BOLTZMANN 
WRITE!*,*)  CONSTANT.' 

WRITE!*,*)  NOTE:  IF  RADIATION  NOT  INVOLVED,  ENTER  0  FOR  SIG5.' 
READ!*.*)  SIG5 

WRITE!*.*)  ENTER  EPS5,  THE  FRONT  FACE  EMISSIVITY.' 

READ!*,*)  EPS5 

WRITE!*,*)  ENTER  ABS5.  THE  FRONT  FACE  ABSORPTIVITY.' 

WRITE!*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  ABS5.' 
READ!*.*)  ABS5 

WRITE!*,*)  ENTER  SAC5,  THE  FRONT  FACE  SOLAR  ASPECT 
WRITE!*,*)  COEFFICIENT.  NOTE:  FOR  EARTH-BASED  MODELS,' 
WRITE!*,*)  ENTER  0  FOR  SAC5.' 

READ!*,*)  SAC5 

* 

*  INPUTS  FOR  THE  BACK  FACE 

* 

WRITE!*,*)  ENTER  TAMB6,  THE  AMBIENT  TEMP.  ON  THE  BACK  FACE.' 
READ!*,*)  TAMB6 

WRITE!*.*)  ENTER  H6,  THE  BACK  FACE  HEAT  TRANSFER  COEFFICIENT.' 
READ!*,*)  H6 
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WRITE!*,*)  ENTER  FLUX6.  THE  FLUX  ON  THE  BACK  FACE.' 

READ!*.*)  FLUX6 

WRITE!*,*)  ENTER  SIG6,  THE  BACK  FACE  STEFAN-BOLTZMANN 
WRITE!*.*)  CONSTANT. 

WRITE!*,*)  NOTE:  IF  RADIATION  NOT  INVOLVED,  ENTER  0  FOR  SIG6.' 
READ!*,*)  SIG6 

WRITE!*,*)  ENTER  EPS6,  THE  BACK  FACE  EMISSIVITY.' 

READ!*,*)  EPS6 

WRITE!*,*)  ENTER  ABS6,  THE  BACK  FACE  ABSORPTIVITY.' 

WRITE!*,*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  ABS6.' 
READ!*,*)  ABS6 

WRITE!*.*)  ENTER  SAC6,  THE  BACK  FACE  SOLAR  ASPECT  COEFFICIENT.' 
WRITE!*.*)  NOTE:  FOR  EARTH-BASED  MODELS,  ENTER  0  FOR  SAC6.' 
READ!*.*)  SAC6 


jf:  ijt  ip.  sp  A  ip  >J?  jjs ip  $  ?Js  ip  jJ:  ip  ip  ip  ip  ip  ip  ip  ip  ip  ip  ip  ip  ip  jg:  ip  ijs  ip  £  ip  s*:  s*s  &  $  t  =!•  £  &  »!'■ <i  Jjt  j|-.  i<t  ft  I'.  £  ip 

*  *  *  A  »'•  A  A  A  A  A  4.  A  A  j».  *  A  A  A  A  j».  A  A  j».  A  A  J.  A  A  A  A  A  A  A  A  A  J,  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  jf.  A  A  A  A  A  A  A  A  j"j  A  A 

* 

CALCULATIONS  OF  CONSTANTS  TO  BE  USED  THROUGHOUT 

*  THE  PROGRAM 

DELX  =  LX  (M-l) 

DELY  =  LY  ( N- 1 ) 

DELZ  =  LZ  (P-1) 

R  =  DELX  (DELY*DELZ) 

R1  =  (DELX**2)  (DELY**2) 

R2  -  (DELX**2)  (DELZ**2) 

* 

ALFA  =  K1  (RHO*CP) 

FO  =  ALFA*!DELT,2)  (DELX**2) 

* 

BIOl  =  HI  KPDELX 
BIO:  =  H2  K!  DELX 
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BI03  =  H3  Kl'DELX 
BI04  =  H4  K1*DELX 
BI05  =  H5  Kl-DELX 
BI06  =  116  K1*DELX 


U1  =  R1*F0 
L'2  =  R2*FO 
L'3  =  2*Rl*FO 
U4  =  2  - R2*F0 
U  5  =  2*F0 

VI  =  2*FO*BIO]*SQRT(RI) 
V2  =  2  T0*BI02*SQRT(R1) 
V3  =  2  *  F  O  *  B I O  3  *  S  Q  R  T(  R  2 } 
V4  =  2*FO*BI04*SQRT(R2> 
V5  =  2*F0*B105 
V6  =  2'i  O'BIOo 

EARTH  1  =  EPS1*FE*EARTH 
EARTH2  =  EPS2*FE*EARTH 
EARTH  3  =  EPS3*FE:  EARTH 
EARTH4  =  EPS4*FE:  EARTH 
EARTH5  =  EPS5*FE  -  EARTH 
EARTH6  =  EPS6  :T  E  :  EARTH 

01  =  2*F0*R1*DELY  K1 
Q2  =  2*FO*R2*DELZ  K1 
Q3  =  2*F0*DELX  K1 


PI  =  Q1*(FLUX1  +  EARTH  1) 
P2  =  Q1  *(FLUX2  +  EARTH2) 
P3  =  Q2*(FLL'X3  +  EARTH3) 
P4  =  Q2*(FLL'X4  +  EARTH4) 
P5  =  Q3  "(FLIX5  +  EARTH  5) 
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P6  =  Q3*(FLUX6  Hr  EARTH 6) 


XI  =  -2*FO*SIGl*EPSl*Rl*DELYKl 
X2  =  -2*FO*SIG2*EPS2*Rl*DELY  K1 
X3  =  -2*F0*SIG3*EPS3*R2*DELZ'K1 
X4  =  -2*FO*SIG4*EPS4*R2*DELZ  K1 
X5  =  -2*FO*SIG5*EPS5*DELX  K1 
X6  =  -2*FO*SIG6*£PS6*DELX  K1 

* 

Y1  =  F0*(DELX**2)  K1 

* 

ALBED1  =  A  B  S 1  *  FA  *  SOL  A  R  *  A  L  B  CO 
ALBED2  =  ABS2 '•  FA-SOLAR  fALBCO 
ALBED3  =  ABS3*FA*SOLAR*ALBCO 
ALBED4  =  ABS4*FA*SOLAR*ALBCO 
ALBED5  =  A  B  S  5  *  FA  *  S  O  L  A  R  *  A  L  B  C  O 
ALBED6  =  A  B  S  6  *  F  A  *  S  O  L  A  R  *  A  L  B  C  O 

SOLAR  1  =  S0LAR*SAC1*ABS1 
SOLAR2  =  SOLAR  *  S  A  C  2  *  A  B  S  2 
SOLAR3  =  SOLAR*SAC3*ABS3 
SOLAR4  =  SOLAR*  S  AC4  ’•  A  B  S4 
SOLAR5  =  SOLAR  *  S  A  C5  *  A  B  S  5 
SOLAR6  =  SOLAR*SAC6*ABS6 

W1  =  PI  +  Ql*(SOLARl  +  ALBED1) 

W2  =  P2  +  Ql*(SOLAR2  +  ALBED2) 

W3  =  P3  +  Q2*(SOLAR3  +  ALBED3) 

W4  =  P4  +  Q2*(SOLAR4  +  ALBED4) 

W5  =  P5  +  Q3*(SOLAR5  +  ALBED5) 

W6  -  P6  +  Q3*(SOLAR6  +  ALBED6) 

*  FOR  EARTH-BASED  MODELS,  CALCULATIONS  FOR  PERIOD  AND  SUN 
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ARE  NOT  REQUIRED. 


* 


IF(ALT  .LE.  0)  GO  TO  5 

PI  =  ATAX(1.0)*4.0 

MU  =  398603.2 

RE  =  6378.165 

DIST  -  RE  +  ALT 

ECLIPS  =  EC  LI  PS  *60 

PERIOD  =  2*PI*SQRT(DIST**3/MU) 

SUN  =  PERIOD  -  ECLIPS 


#  jJ;  ;’fi  j.V  }[•  a  a  a  a  a  a  a  a  a  a  a  a  jj.  a  a  a  .v  ^  a  .j.a  a  a  >*-  a  a  ;;;  .jt  jj;  .a  a  rj  4  a.  jJ:  <:  jJ-.  a  j*:  £  j};  ifc  ^  jJ:  *.  a  a  £  ;J:  a  a 

a  a  A  }J»  A  j|.  A  A  A  A  f.  A  A  A  A  A  J>.  A  .J,  jj.  A  .V  A  A  A  j{.  |J>  A  A  £  ;1{  (V  £  jj*  £  A  A  A  jJj  ,V  ^  jj.  ,J.  ^  A  A  .V  ;•*  A.  jA  ,J.  jj,  £  ft  jV  A  |Jc  »V  jV  A  }J.  ,V 

•  INITIALIZING  THE  TIME  AND  COUNTER 

5  TIME  =  0.0 
COUNT  =  0 

❖ 

tf  *  *  ft  *  *  ft  ft  *  $  ft  *  ft  *  *  *  ft  *  *  *  *  ft  *  *  *  *  ft  *  ft  ft  *  *  *  *  ft  *  *  ******  *  *  *  *  *  *  *  *  *  *****  *  *  *  *  *  *  *  *  *  *  *  *  * 

*  *  *  *  ?:*.  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ft  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ft  *  *  *  ft  *  *  *  *  *  *  *  *  *  *  *  *  ft 


*  OPENING  TILES  FOR  PRINT  STATEMENTS 

OPEN(UNTT=  1,  FILE  =  DATAU) 
OPEN(UNTT=  2,  FILE=  DATA2  ) 
OPEN(UNTT=  3,  FILE=  DATA3') 

OPEN(UNTT  =  4,  FILE=  'DATA4') 

OPEN(UXTT  =  5,  FILE=  'DATA5') 


*************************  ********************************************** 
*********************************************************************** 
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*  INITIALIZE  ALL  TEMPERATURES  TO  TIMT,  THE  INITIAL 

*  TEMPERATURE. 

* 

DO  10  1=  1,  M 
DO  20  J  =  1 .  N 
DO  10  K=  1,  P 

* 

T(IJ.K)  =  TINTT 

* 

30  CONTINUE 
20  CONTINUE 
10  CONTINUE 

ffi  &  $  >t*.  &  >*.  &  }Jt  V-  »!'.  it*.  <: £  :I*.  sji  jjt  »J:  >Js  £  <?  £  #  <t  £  J{i  ijt  J*i  tfi  A  iji  >5s  <5  *J:  j}:  ijt  <:  >»!  J»t  <t  jjs  $  $  &  j{i  l}i  *  »Jt  ijt  # 

<*• 

*  INITIALIZE  ALL  GENERATION  TERMS  TO  GEN.  THE  INITIAL 

*  GENERATION. 

DO  40  1  =  l.M 
DO  50  J-  UN¬ 
DO  60  K=  I.P 

QDOT(U.K)  =  GEN 

60  CONTINUE 
50  CONTINUE 
40  CONTINUE 

* 

*****<5*******  *$«#*&*  «*.**<!'*  $**$£*$************$**  *********««*********$*** 

* 

-  INCREMENTING  THE  TIME  AND  COUNTER 
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70  TIME  =  TIME  +  DELT 
COL  XT  =  COL  XT  +  1 


*  *  *  *  *  ❖  *  ❖  *  ❖  ❖  tr-  *  *  *  ❖  *  ❖  *  *  ❖  *  ❖  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  $  *  *  *  *  *  *  *  *  *  *  *  $  *  *  *  *  *  *  s'*.  *  *  4c  4  *  *  *  *  *  *  * 

****** ****************** ************************************************ 

* 

*  THIS  PART  OF  THE  PROGRAM  CALCULATES  THE  SOLAR  FLUXES  AXD 

*  ALBEDO  FLUXES  WHICH  WILL  CHAXGE  WITH  TIME  AS  THE  SATELLITE 

*  REVOLVES  AROUXD  THE  EARTH.  DURIXG  ECLIPSE  PERIODS, 

*  THE  SOLAR  FLUX  WILL  BE  ZERO.  FOR  EARTH-BASED  MODELS, 

*  THIS  PART  OF  THE  PROGRAM  AXD  THE  SUBROUTINES  PERI  AXD 

*  PER:  WILL  BE  BYPASSED  USING  AX  IF-THEN  STATEMENT.  IF 

*  THE  USER  INPUTS  0  FOR  ALT  (I.E.,  EARTH-BASED  MODEL) 

*  THEN  THIS  PART  OF  THE  PROGRAM  AND  THE  TWO  SUBROUTINES 

*  WILL  BE  BYPASSED. 


IF(ALT  .LE.  0)  GO  TO  75 

IF(TIME  .LT.  (12*(SL X  +  ECLIPS)))  THEN 
CALL  PERI 
ELSE 

CALL  per: 

ENDIF 

ALBED1  =  ABSl*FA*SOLAR*ALBCO 
ALBED2  =  ABS2*FA*SOLAR*ALBCO 
ALBED3  =  ABS3*FA*SOLAR!:'ALBCO 
ALBED4  =  ABS4*FA*SOLAR*ALBCO 
ALBED5  =  ABS5*FA*SOLAR*ALBCO 
ALBED6  =  ABS6  FA*SOLAR*ALBCO 

SOLAR1  =  SOLAR-SACPABSI 
SOLAR2  =  SOLA  R*SAC2'\ABS2 
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SOI  AR3  =  SOLAR*SAC3*ABS3 
SOLAR4  =  SOLAR*SAC4*ABS4 
SOLAR5  =  SOLAR*SAC5*ABS5 
SOLAR6  =  SOLAR*SAC6*ABS6 

\V1  =  PI  +  Ql*(SOLARl  +  ALBED1) 

W2  =  P2  +  QI*(SOLAR2  +  ALBED2) 

\V3  =  P3  +  Q2*(SOLAR3  +  ALBED3) 

W4  =  P4  +  Q2!f(SOLAR4  +  ALBED4) 

\V5  =  P5  +  Q3*(SOLAR5  +  ALBED5) 

\V6  =  P6  +  Q3*(SOLAR6  +  ALBED6) 

*  A  A  A  A  *  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  *  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A 
A A A A A A A A A A A A A A A A A A A A A A A A  A A AAA  A AAAAAAAAAAAAAAAAAAAAAAA A A  A A A  A  A A  A  A A  A  A A  A 


SETTING  COEFFICIENT  ARRAYS  A,  B,  AND  C  IN  THE  X  DIRECTION 
;  DO  SO  1=  1,  \1 


BUI  =  (1  +  U5) 

I F( I  .EQ.  1)  THEN 
All)  =  0.0 
QI.)  =  -U5 

ELSE  IF((I  .GT.  1)  .AND.  (I  .LT.  M))  THEN 
A(  I )  =  -FO 
C(I)  -  -FO 

ELSE 

A(I)  =  -L5 
C(I)  =  0.0 
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END  IF 


80  CONTINUE 

K* 

*  SETTING  COEFFICIENT  ARRAY  D  IN  THE  X  DIRECTION 

* 

DO  90  K  =  1,  P 
DO  100  J=  1,  N 
DO  110  1=  1,  M 


IF  (K.EQ.l)  THEN 
CALL  XRAY1 

ELSE  IF  ((K.GT.l)  .AND.  (K.LT.P))  THEN 
CALL  XRAY2 
ELSE 

CALL  XRAY3 
END  IF 

110  CONTINUE 

IF=  1 
L=M 

CALL  TRIDAG 

DO  120  I  =  IF,L 

TSTAR1(I,J,K)  =  TEMP(I) 

120  CONTINUE 
100  CONTINUE 
90  CONTINUE 


********  ********************************************* 
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«***«»#  *  ******  IS  *  *  *  *  ***********  <<  *  *  ***  *  *  **  *  **  *  **  *  **  *  *  *  *  *  *  ***  *  *  *  * ;*  *  *  *  *  *  *  *  t 


*  SETTING  COEFFICIENT  ARRAYS  A,  B,  AND  C  IN  THE  Y  DIRECTION 

* 

DO  1 30  J  =  1  ,N 

* 

B(J)  =  (1  +  U3) 

* 

IF(J  .EQ.  1)  THEN 
A(J)  =  0.0 
C(J)  =  *U3 

j. 

ELSE  IF((J  ,GT.  1)  .AND.  (J  .LT.  N))  THEN 
A(J )  «  -II 
C(J>  =  .11 

£ 

ELSE 

A(J)  =  -U3 
C(J)  -  0.0 


END  IF 

130  CONTINUE 


*  SETTING  COEFFICIENT  ARRAY  D  IN  THE  Y  DIRECTION 

* 

DO  140  K=  1,P 
DO  150  1=  I,M 
DO  160  J  =  1,N 

* 

IF(K.EQ.I)  THEN 
CALL  YANK1 

ELSE  IF(  (  K.GT.l)  .AND.  (K.LT.P)  )  THEN 
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CALL  YANK 2 
ELSE 

CALL  YANK 3 
EXDIF 

i 

160  CONTINL'E 


IF®  1 
L  =  \ 

CALL  TRIDAG 

DO  1 70  J  =  IF.  L 


TSTAR2(IJ.K)  =  TEMP(J) 

j 

170  CONTINL'E 
150  CONTINL'E 
140  CONTINL'E 


*  £  *  £  £  *  £  £  *  *  £  *  *  £  £  *  £ £  *  *  £  *  *  *  £  £  £  *  £  *  £  £  £  £  *  £  £  £  £  £  £  £  ££££££££££££££££££££££££  £  £  £  £  * 
£ £ £ £ £ £ £ £ £ £ £ £ £ £ £ £  £  £ £ £ £ £ £ £ £  £  £  £ £  £  £ £ £  £  £  £  £  £  ££££££££  £  ££££££ £ £ ££££££££££££ £  £ £ £ 


*  SETTING  COEFFICIENT  ARRAYS  A.  BT  AND  C  IN  THE  Z  DIRECTION 
DO  180  K®  1,  P 

* 

B(K)  =  (1  +  L4) 

* 

IF(K  .EQ.  1)  THEN 
A(K)  =  0.0 
C(K)  =  -L4 


ELSE  IF((K  .GT.  1)  .AND.  (K  .LT.  P))  THEN 
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EXDIF 

180  CONTINUE 


*  SETTING  COEFFICIENT  ARRAY  D  IN  THE  Z  DIRECTION 

DO  190  J-  1,  X 
DO  200  1  =  I. M 
DO  210  K  =  l.P 

IF(J.EQ.l)  THEN 
CALL  ZULLT 

ELSE  IF((J.GT.l)  .AND.  (J.LT.N))  THEN- 
CALL  ZULU  2 
ELSE 

CALL  ZULU 3 
ENDIF 

210  CONTINUE 


IF*  I 
L=P 


CALL  TRIDAG 
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DO  220  K  =  IF,  L 
T(I,J,K)  =  TE.MP(K) 

J: 

220  CONTINUE 
200  CONTINUE 
190  CONTINUE 


ft  4  *$$$**$«$*.****£«  **.*$*  ftftftftftftftft  ft  ftftft  ftftftftftftftft*  *************** ftftftftftftftft 
*  £  *  ft  ft  *  ft  ft  ft  ft  *  *  $  £  ft  ft  *  ft.  ft  ft  *  *  ft  ft  ft  ft  *  *  £  ft  ft  ft  Jit  ft  *  ft  ft  $  *  *  *  *  4  ft  *  ft  *  *  *  >*t  *  £  *  *  *  *  ft  4c  £  ft  *  ft  ft  ft  *  ft  *  £  *  £  * 


*  THIS  PART  OF  PROGRAM  IS  USED  TO  DETERMINE  IF  THE 

*  SUBROUTINE  VALID  WILL  BE  CALLED.  THIS  SUBROUTINE 

*  IS  USED  TO  VALIDATE  THE  PROGRAM  BRIAN  AND  COMPARE 

*  TEMPERATURE  DIFFERENCES  AT  SELECTED  NODES  WITH  THE 

*  DIFFERENCES  FOUND  BY  THE  PROGRAMS  EXPLICIT  AND  VALID. 

ft 

*  IF  SUBROUTINE  VALID  IS  USED  THE  SUBROUTINE  OUTPUT  WILL  BE 

*  BYPASSED.  IT  SHOULD  BE  NOTED  THAT  THE  SUBROUTINE  VALID 
1)1  WILL  NOT  NORMALLY  BE  USED. 


IF(VAL  .NE.  1)  GO  TO  250 
IF(TIME  .EQ.  DELT)  CALL  VALID 
I F( COUNT  .NE.  FREQ)  GO  TO  240 
CALL  VALID 

240  IF(TIME  .LE.  3600)  GO  TO  70 
GO  TO  310 


*  THIS  PART  OF  PROGRAM  WILL  DETERMINE  IF  THE  TIME  AND; OR 

*  COUNT  CRITERIA  FOR  CALLING  THE  SUBROUTINE  OUTPUT  IS  MET. 

*  THIS  SUBROUTINE  IS  USED  FOR  VARIOUS  PRINTOUTS. 
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250  IF(TIME  .EQ.  DELT)  CALL  OUTPUT 
IF(COL NT  .NE.  FREQ)  GO  TO  300 

CALL  OUTPUT 

* 

*  NOTE:  IF  THE  SUBROUTINE  OUTPUT  IS  CALLED,  THE  COUNT  WILL  BE 

*  REINITIALIZED  TO  ZERO  IN  THE  SUBROUTINE  OUTPUT 

<* *. 

*  NOTE:  THE  TIME  PERIOD  SELECTED  FOR  THIS  PROBLEM  IS  86400 

*  SECONDS  OR  I  DAY.  ANOTHER  TIME  LIMIT  CAN  BE  USED 

*  IF  THE  USER  DESIRES  A  PERIOD  DIFFERENT  THAN  1  DAY. 


300  IF(TIME  ,LE.  S6400iGOT0  7o 


CALCULATING  AND  PRINTING  CPU  TIME  USED  DURING  THE 
OPERATING  OF  THIS  PROGRAM 

310  PRINT* 

PRINT* 


TIME1  =  CTIMEO 
CALL  UMACHC.NOUT) 

\YRITE(NOUT.*)  CPU  TIME  (SECONDS)  =  \  T1ME1-TIMLO 

STOP 

END 

* 

$«  *  *  #  *  $  *  4  $  $  $  #  ft  *  ftftftftftftftftftftftftft*ft*ftftft**ftftftftft***ftft*ftft*********«*£ 

ft  ft  *  ft  *  ft  ft  *******  ft  *  ********  ft  ft  *  ft  ft  ft  .-I:  ftftftftftftftftftftftftftftftftftft*  ft  ft  *  *  *  ft  ft  ft  ftftftftftftftftftftft  ft  ft 


SUBROUTINE  PERI 

DIMENSION  A(  30).  B(  30).  C(  30).  D(  30),  TEMP(  30) 
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DIMENSION'  BETA(  30),  GA\IMA(  30),  QDOT(30,  30,  30) 
DIMENSION  T(  30.  30.  30).  TSTAR1(  30,  30.  30) 

DIMENSION  TSTAR2(  30.  30,  30) 

REAL  UNIT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO.  R.  Rl.  R2,  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C,  D.  BETA,  GAMMA 

REAL  FLL'Xl,  FLLX2,  FLLX3,  FLLX4,  FLLX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  BIOl,  BI02,  BI03,  B104.  BI05,  BI06 

REAL  SIG1,  SIG2,  SIG3.  SIG4,  SIG5,  SIG6 

REAL  L  I.  L2,  U3,  U4,  U5 

REAL  VI.  Y2,  Y3,  Y4,  Y5.  Y6 

REAL  W'l.  W2.  W3,  \Y4,  W5,  W6 

REAL  XI.  X2.  X3.  X4.  X5,  X6 

REAL  EPSI.  EPS2.  EPS3.  EPS4,  EPS5,  EPS6 

REAL  QDOT.  GEN,  Y1 

REAL  CTIME.  TIMEO.  TIMEl 

REAL  SOLAR.  EARTH,  ALBCO,  RE.  DIST.  ALT.  FE,  FA,  ML 
REAL  SOLAR1.  SOLAR2.  SOLAR3.  SOLAR4,  SOLARS,  SOLAR6 
REAL  EARTH  1.  EARTH 2.  EARTH3,  EARTH4.  EARTHS.  EARTH6 
REAL  ALBED1.  ALBED2.  ALBED3,  ALBED4,  ALBED5,  ALBED6 
REAL  ABS1.  ABS2,  ABS3,  ABS4,  ABSS,  ABS6 
REAL  SAC  1 ,  SAC 2.  SAC3,  SAC4,  SACS,  SAC6 
REAL  SLN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 
REAL  PI,  P2,  P3,  P4,  P5,  P6 

INTEGER  I,  J,  K,  M,  N,  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COLNT,  FREQ,  ANSI,  ANS2,  ANS3,  VAL,  NOLT 

COMMON  TINIT,  TSTAR1,  TSTAR2,  T.  TEMP 
COMMON  CP,  KL  RHO,  R,  Rl,  R2.  TIME,  DELT 
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COMMON  LX.  LY,  LZ.  DELX.  DELY,  DELZ 

COMMON  I.  J,  K.  M.  N.  P,  IF.  L.  IFP1.  LAST 

COMMON  A.  B.  C.  D.  BETA.  GAMMA.  G,  Q 

COMMON  FLUX1.  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5,  H6 

COMMON  BIOl.  BI02,  BI03,  BI04,  BIOS,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  LI,  L'2,  L3,  L4,  US 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  \V2,  W3.  \V4.  \V5,  W6 

COMMON  XI,  X2,  X3.  X4.  X5,  X6 

COMMON  COUNT.  FREQ.  ANSI.  ANS2.  AN  S3.  VAL,  NOL'T 
COMMON  EPS1.  EPS2.  EPS3.  EPS4,  EPS5,  EPS6 
COMMON  QDOT,  GEN.  Y1 
COMMON  TIMEO.  TIME1 

COMMON  SOLAR,  EARTH.  RE,  DIST,  ALT,  FE.  FA,  MU 
COMMON  SOLAR1,  SOLAR2.  SOLAR3.  SOLAR4.  SOLARS,  SOLAR6 
COMMON  EARTH  1,  EARTH 2.  EARTHS,  EARTH4.  EARTHS,  EARTH6 
COMMON  ALBED1.  ALBED2.  ALBED3,  ALBED4,  ALBEDS,  ALBED6 
COMMON  ABS1.  ABS2.  ABS3.  ABS4,  ABS5,  ABS6 
COMMON  SAC  1 .  SAC2.  SAC 3.  SAC4,  SAC 5,  SAC6 
COMMON  SUN.  ECLIPS.  Ql,  Q2,  Q3.  PERIOD,  PI 
COMMON  PI,  P2,  P3.  P4.  PS.  P6 


IF(TIME  .LT.  SUN)  THEN- 
GO  TO  10 

ELSE  IF((TIME  .GE.  SUN)  .AND.  (TIME  .LT.  (SUN  +  ECLIPS)))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (SUN  +  ECLIPS))  .AND. 

&  (TIME  LT.  (2-SUN  +  ECLIPS)))  THEN 
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GO  TO  10 


ELSE  IF((TIME  .GE.  (2*SEN  +  ECLIPS))  .AND. 

&  (TIME  .LT.  (2*(SEN-r  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (2*(SEN  +  ECLIPS)))  .AND. 

&  (TIME  .LT.  (3*SLN  +  2*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (3*SUN  +  2*ECLIPS))  .AND. 
&  (TIME  .LT.  3*(SL'N  +  ECLIPS)))  THEN 
GO  TO  20 

ELSE  1FUTIME  -GE.  (3*(SUN  +  ECLIPS)))  .AND. 

&  (TIME  .LT.  (4 *SL‘N  +  3*ECLIPS)))  THEN 
GO  TO  10 

ELSE  1F((TIME  .GE.  (4s SUN  +  3" ECLIPS))  -AND. 
&  (TIME  .LT.  (4*(SL'N  + ECLIPS))))  THEN 
GO  TO  20 


ELSE  IF((TIME  -GE.  4*(SEN  +  ECLIPS))  .AND. 

&  (TIME  XT.  (5’- SEN  +  4 -  ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (5*SEN  +  4*ECLIPS))  .AND. 
&  (TIME  .LT.  (5*(SEN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (5*(SEN  +  ECLIPS)))  .AND. 
&  (TIME  .LT.  (6*SEN  +  5*ECLIPS)))  THEN 
GO  TO  10 
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ELSE  IF((TI\1E  .r»E.  (6*SUN  -r  5*ECLIPS))  .AND. 
&  (TIME  .LT.  (6*(SUN  + ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  GE.  (6*(SUN  + ECLIPS)))  .AND. 

&  (TIME  .LT.  (7*SUN  +  6*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (7*SUN  +  6*ECLIPS))  .AND. 
&  (TIME  .LT.  (7*(SUN  + ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (7*(SUN-*- ECLIPS)))  .AND. 

&  (TIME  .LT.  (S*SLN  +  7*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((T1ME  .GE.  (S*SLN  +  7*ECLIPS))  .AND. 
&  (TIME  .LT.  (S*(SL'N  +  ECLIPS))))  THEN 
GO  TO  20 


ELSE  IF((TIME  .GE.  (8*(SUN  + ECLIPS)))  .AND. 

&  (TIME  .LT.  (9* SUN  +  S*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (9*SUN  +  8*ECLIPS))  .AND. 
&  (TIME  .LT.  (9*(SLN+  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (9*(SUN  +  ECLIPS)))  .AND. 

&  (TIME  .LT.  (10*SL'N  +  9‘ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (I0*SUN  +  9*ECLIPS))  .AND. 
&  (TIME  .LT.  (10*(SUN  +  ECLIPS))))  THEN 


135 


ELSE  IFKT1ME  GE.  (10*(SL'N'  +  ECLIPS)))  .AND. 

&  (TIME  .LT.  (11*SUN  +  10'ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (1I*SUN  +  10*ECLIPS))  .AND. 
&  (TIME  .LT.  (lnSL'N  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (11*(SUN  +  ECLIPS)))  .AND. 

&  (TIME  .LT.  (12-SUN  +  11*ECLIPS)))  THEN 
GO  TO  10 

ELSE 
GOTO  20 

ENDIF 

10  SOLAR  =  1353 

\VRITE(6.*)  SOLAR  =  .SOLAR 
GO  TO  30 

20  SOLAR  «  0 

\VRITE(6/')  'SOLAR  =  '.SOLAR 

30  RETURN 
END 


******  *«*********«:!!:. *$$.■»*****  *$$::**!**********.■*  #$********************* 


* 


SUBROUTINE  PER2 

DIMENSION  A{  30).  B(  30),  C(  30),  D(  30),  TEMP(  30) 


DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(30.  30.  30) 
DIMENSION  T(  30,  30,  30),  TSTARI(  30,  30,  30) 

DIMENSION  TSTAR2(  30,  30.  30) 

REAL  TINIT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO,  R.  Rl,  R2,  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C.  D.  BETA,  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMBI,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2.  H3,  H4.  H5,  H6 

REAL  BIOI,  BI02,  BI03.  BI04,  BIOS,  BI06 

REAL  S1G 1,  SIG2.  SIG3,  SIG4,  SIG5,  SIG6 

REAL  LT.  U2.  U3.  U4.  US 

REAL  VI.  Y2.  Y3.  V4.  Y5.  Y6 

REAL  Wl,  \Y2.  \Y3.  \Y4.  \Y5.  \Y6 

REAL  XI,  X2,  X3,  X4,  X5.  X6 

REAL  LPS1,  EPS2.  EPS3,  EPS4.  EPS5,  EPS6 

REAL  QDOT.  GEN.  Yl 

REAL  CTIME,  TIMEO.  TIME1 

REAL  SOLAR.  EARTH.  ALBCO,  RE,  DIST.  ALT,  FE,  FA,  ML 
REAL  SOLAR1.  SOLAR2.  SOLAR3.  SOLAR4.  SOLARS,  SOLAR6 
REAL  EARTH  1.  EARTH2.  EARTH 3.  EARTH4.  EARTHS,  EARTH 6 
REAL  ALBEDI,  ALBED2.  ALBED3,  ALBED4,  ALBED5,  ALBED6 
REAL  ABS1.  ABS2.  ABS3,  ABS4,  ABS5,  ABS6 
REAL  SAC  I,  SAC2,  SAC3,  SAC4,  SACS,  SAC6 
REAL  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 
REAL  PI,  P2,  P3,  P4,  PS,  P6 

INTEGER  I,  J.  K,  M,  N.  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ,  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  TINIT,  TSTAR1.  TSTAR2,  T,  TEMP 
COMMON  CP,  Kl,  RHO,  R.  Rl.  R2.  TIME,  DELT 
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COMMON  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

COMMON  I,  J,  K,  M,  N.  P,  IF,  L,  IFP1,  LAST 

COMMON  A.  B,  C,  D.  BETA,  GAMMA,  G,  Q 

COMMON  FLL'Xl,  FLUX2,  FLUX3,  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4.  H5,  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SI G 1 ,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  L  I,  U2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3,  V4,  V5,  V6 

COMMON  Wl,  \Y2.  W3,  W4,  \V5,  W6 

COMMON  XI.  X2.  X3.  X4.  X5,  X6 

COMMON  COUNT.  FREQ,  ANSI,  ANS2,  ANS3,  VAL,  NOUT 
COMMON  EPS).  EPS2.  EPS3.  EPS4,  EPS5,  EPS6 
COMMON  QDOT,  GEN.  Y1 
COMMON  TIMEO.  TIME1 

COMMON  SOLAR.  EARTH.  RE,  DIST.  ALT,  FE,  FA,  MU 
COMMON  SOLARI.  SOLAR2.  SOLAR3,  SOLAR4.  SOLAR5,  SOLAR6 
COMMON  EARTHI,  EARTH2.  EARTH3,  EARTH4,  EARTH5,  EARTH6 
COMMON  ALBED1,  ALBED2.  ALBED3.  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  \BS2.  ABS3.  ABS4,  ABS5,  ABS6 
COMMON  SACK  SAC2,  SAC3,  SAC4.  SAC 5,  SAC6 
COMMON  SUN.  ECLIPS,  Ql.  Q2,  Q3,  PERIOD.  PI 
COMMON  PI,  P2.  P3.  P4,  P5,  P6 

IF((TIME  .GE.  (12*(SUN  +  ECLIPS)))  .AND. 

&  (TIME  .LT.  (13*SUN  +  12*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (J3*SUN  +  12*ECLIPS))  .AND. 

&  (TIME  .LT.  (13*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (13*(SUN  + ECLIPS)))  AND. 
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&  (TIME  .LT.  (14*SUN  +  13*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (14- SUN  +  13*ECLIPS))  .AND. 

&  (TIME  ,LT.  (14*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (14*(SUN  + ECLIPS)))  .AND. 

&  (TIME  .LT.  (15*SUN  +  14*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (15*SUN  +  14*ECLIPS))  .AND. 

&  (TIME  .LT.  ( 15*(SL'N  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IFuTIME  .GE.  (15'(SLN  + ECLIPS)))  .AND. 

&  (TIME  .LT.  (16-SUN  ^  15*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IF((TIME  .GE.  (16-SUN  +  15*ECLIPS))  .AND. 

&  (TIME  .LT.  (I6*(SUN  +  ECLIPS))))  THEN 
GO  TO  20 

ELSE  IF((TIME  .GE.  (16*(SUN  + ECLIPS)))  .AND. 

&  (TIME  .LT.  (17*SUN  +  16*ECLIPS)))  THEN 
GO  TO  10 

ELSE  IFUTIME  .GE.  (17*SUN  +  16*ECLIPS))  .AND. 

&  (TIME  .LT.  (17*(SUN  + ECLIPS))))  THEN 
GO  TO  20 

ELSE 
GO  TO  10 
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END  IF 


10  SOLAR  =  1353 

WRITE{6.*)  SOLAR  = '.SOLAR 
GO  TO  30 

20  SOLAR  =  0 

WRITE(6,*)  SOLAR  =', SOLAR 

30  RETURN 
END 


*  *  *  *  *  *  £  £  £  *  *. £  £.  £  *  *  fc  *  £  £.  £  £  £  *  £  £.  £  *  A  *  £  *  *  £  £  £  *  £  *  £  *  £  *  *  £  $  £  £  £  ££££££*££££££  £  £  £  *  *  £  *  A 
>!<  £  jjs  £  £  £  •;<  £  ^  £  *  £  *  £  ^  £  £  £  <i  ^  i;»,  £  £  £  £  £  £  £  £  £  £  £  £  £  A  £  £  A  <!  <i  i*t £  £  A  A  AAA  A  A  A  A  A  A  A  A  A  A  A 


*  SUBROUTINES  XRAV1,  XRAY2,  AND  XRAY3  COMPUTE  COEFFICIENT 

*  ARRAY  D  IN  THE  X  DIRECTION 

A 

*  SUBROUTINE  XRAY1 

A 

SUBROUTINE  XRAY1 

DIMENSION  A(  30).  B(  30),  C(  30),  D(  30),  TEMP(  30) 

DIMENSION  BETA(  30).  GAMMA(  30),  QDOT(  30,  30,  30) 

DIMENSION  T(  30.  30,  30).  TSTAR1(  30.  30,  30) 

DIMENSION  TSTAR2(  30,  30,  30) 

A 

REAL  TIN1T,  TSTARI,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C,  D,  BETA,  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2.  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2.  H3,  H4,  H5,  H6 

REAL  BIOI,  BI02,  BI03,  B104,  BI05,  BI06 
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REAL  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

REAL  Ul,  U2.  U3,  U4,  US 

REAL  VI,  V2.  V3,  V4,  Y5,  V6 

REAL  Wl.  \V2,  W3.  \V4.  \V5,  W6 

REAL  XI,  X2,  X3,  X4,  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Y1 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 
REAL  SOLAR  1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
REAL  EARTH  1,  EARTH2,  EARTH 3,  EARTH 4,  EARTHS,  EARTH6 
REAL  ALBED1.  ALBED2.  ALBED3,  ALBED4.  ALBED5.  ALBED6 
REAL  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 
REAL  SAC  1 .  SAC2.  SAC 3.  SAC4.  SACS,  SAC6 
REAL  SUN.  ECLIPS.  Ql.  Q2.  Q3,  PERIOD.  PI 
REAL  PI,  P2,  P3.  P4,  PS.  P6 

INTEGER  I.  J.  K,  M.  N,  P.  IF.  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ.  ANSI.  ANS2,  AN  S3,  VAL,  NOUT 

COMMON  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP.  Kl.  RHO,  R.  Rl.  R2.  TIME,  DELT 

COMMON  LX.  LY.  LZ,  DELX.  DELY,  DELZ 

COMMON  I,  J.  K.  M.  N,  P,  IF,  L,  IFP1.  LAST 

COMMON  A.  B.  C,  D.  BETA.  GAMMA.  G,  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5,  H6 

COMMON  BIOl,  BI02.  BIOS,  BI04,  BIOS,  BI06 

COMMON  SIG1,  SIG2,  S1G3,  SIG4,  SIG5,  SIG6 

COMMON  Ul,  U2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3,  V4,  V5.  V6 

COMMON  Wl,  W2.  W3.  W4.  W5,  W6 

COMMON  XI.  X2,  X3.  X4.  XS,  X6 
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COMMON  COUNT,  FREQ 

COMMON  EPS1.  EPS2.  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN.  VI 

COMMON  T1MEO,  TIM  El 

COMMON  SOLAR,  EARTH,  RE,  D1ST,  ALT,  FE,  FA,  MU 
COMMON  SOLAR  I,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 
COMMON  ALBEDI,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 
COMMON  SAC  1 ,  SAC2,  SAC3,  SAC4,  SAC5,  SAC6 
COMMON  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 
COMMON  PI,  P2.  P3.  P4.  P5.  P6 

IF{( I.EQ.  1 )  .AND.  (J.EQ.  1 ))  THEN 
D( I )  =  T(U.K)  +  U3*(T(U  +  l.K)  *  T(I,J.K))  + 

&  U4*(T(U.K  +  1)  -  T(IJ.K))  +  YT'(TA.MB1  -  T(I.J.K))  + 

<Si  V3*(TAMB3  -  T(I.J.K))  +  Y6*(TAMB6  -  T(I,J,K))  +  W1  + 

&  \V3  +  \Y6  +  X1*(T(IJ.K>**4  -  TAMB1**4)  + 

&  X3*(T(1J.K)**4  -  TAMB3v  -4)  + 

&  X6*(T(I.J.K)**4  -  TAMB6**4)  +  Y1*QD0T(1J,K) 

ELSE  IF(((l.GT.l)  .AND.  (I.LT.M))  .AND.  (J.EQ.l))  THEN 
D(I)  =  T(IJ.K)  +  U3*(T<TJ+1,K)-T(U,K))  + 

&  U4*(T(1,J.K  +  1)  -  T(I,J.K))  +  V1*(TAMB1  -  T(I,J,K))  + 

&  V3'::(TAMB3  -  T(I.J.K))  +  WI  +  \V3  + 

&  XI*(T(I.J,K)**4  -  TAMBl**4)  + 

&  X3*(T(U,K)**4  -  TAMB3**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.M)  .AND.  (J.EQ.l))  THEN 
D(I)  =  T(U,K)  +  U3*(T(I,J  +  l.K)  -  T(I,J,K))  + 

&  U4*(T(U.K+  1)  -  T(I,J,K))  +  V1*(TAMB1  -  T(U,K))  + 

&  V3*(TAMB3  -  T(I,J,K))  +  V5*(TAMB5  -  T(I,J,K))  + 

&  Wl  +  W3  +  W5  +  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X3*(T(I.J.K)**4  -  TAMB3**4)  + 
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&  X5*(T(I,J.K)**4  -  TAMB5**4)  +  Yl*QDOT(l J,K) 

ELSE  IF((I.EQ.l)  \ND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN 
D(I)  =  T(U.K)  +  L'1*(T(IJ-1.K)  +  T(U+  1,K)  -  2*T(IJ,K))  + 
&  L'4*(T(I,J,K  +  1 )  -  T(I,J,K))  +  V3*(TAMB3  -  T(U,K))  + 

&  V6*(TAMB6  -  T(U.K))  +  W3  +  W6  + 

&  X3*(T(U,K)**4  -  TAMB3**4)  + 

&  X6*(T(U,K)**4  -  TAMB6**4)  +  Yl*QDOT(U,K) 

ELSE  I F(((I.GT.  1 )  .AND.  (I.LT.M))  .AND.  ((J.GT.l)  .AND. 

&  (J.LT.N)))  THEN 

D(I )  =  T(IJ.K)  +  U1*(T(I  J-l.K)  +  T(U+1,K)-2*T(U,K))  + 
&  L'4*(T(I.J.K  +  1)  -  T(IJ.K))  +  V3*(TAMB3  -  T(I,J,K))  + 

&  \Y3  +  X3*(T(LJ.K)**4  -  TAMB3**4)  +  Yl*QDOT(I,J.K) 

ELSE  IF(d.EQ.M)  .AND.  ((J.GT.l )  .AND.  (J.LT.N)))  THEN 
D(1 )  =  T(I.J.K)  +  U1*(T(1.J-1.K)  +  T(I.J  +  1,K)  -  2*T(1J.K))  + 
&  L4*(T(LJ.K+  1)  -  TU.J.K))  +  V3*(TAMB3  -  T(1.J.K))  + 

&  Y5*(TAMB5  -  T(I.J.K)}  +  NY  3  +  W5  + 

&  X3*(T(U.K)**4  -  TAMB3**4)  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Yl*QDOT(U,K) 

ELSE  IF((I.EQ.l)  .AND.  (J.EQ.N))  THEN 
D( I )  =  T(LJ.K)  +  L'3*(T(I.Jd.K)  *  T(I.J,K))  + 

&  U4*(T(l,J.K  +  l)-Td.J,K))  +  V2*(TAMB2  -  T(U,K))  + 

&  Y3*(TAMB3  -  T(U.K))  +  V6*(TAMB6  -  T(1.J,K))  + 

&  \V2  +  W3  +  \V6  +  X2*(T(U,K)**4  -  TAMB2**4)  + 

&  X3*(T(IJ,K)**4  -  TAMB3**4)  + 

&  X6*(T(U.K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((l.GT.l)  .AND.  (I.LT.M))  .AND.  (J.EQ.N))  THEN 
D(I)  =  T(I,J,K)  +  L'3*(T(IrI-l,K)-T(U,K))  + 

&  L'4*(T(I.J,K  +  1)  -  T(I,J.K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&  V3*(TA\JB3  -  T(LJ.K))  +  W2  +  W3  + 
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&  X2*(T(1J.K>**4  -  TAMB2**4)  + 

&  X3*(T(U.K)**4  -  TAMB3**4)  +  Yl*QDOT(I ,J,K) 

ELSE 

D(I)  =  T(I,J,K)  +  U3*(T(U-I,K)  -  T(U,K))  + 

&  U4*(T(U.K+  1)  -  T(I,J,K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&  V3*(TAMB3  -  T(I,J,K))  +  V5*(TAMB5  -  T(U,K))  + 

&  W2  +  \V3  +  W5  +  X2*(T(U,K)**4  -  TAMB2**4)  + 

&  X3*(T(lJfK)**4  -  TA.MB3**4)  + 

&  X5*(T(I,J.K)**4  -  TAMB5**4)  +  Y1*QD0T(1?J,K) 


ENDIF 


RETURN 

END 


*  SUBROUTINE  XRAY2 

$ 

SUBROUTINE  XRAY2 

DIMENSION  A(  30).  B(  30).  C(  30),  D(  30).  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA)  30).  QDOT(  30.  30,  30) 
DIMENSION  T(  30.  30.  30).  TSTAR1(  30,  30,  30) 
DIMENSION  TSTAR2C  30,  30,  30) 

REAL  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C,  D.  BETA,  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

REAL  SIGI.  SIG2.  SIG3.  SIG4,  SIG5,  SIG6 
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REAL  Ul.  U2.  U3,  U4.  US 

REAL  VI,  V2.  V3.  Y4.  V5.  V6 

REAL  \V1,  W2.  W3,  \Y4.  \Y5.  \V6 

REAL  XI,  X2,  X3.  X4.  X5.  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN.  VI 

REAL  CTIME,  TIMEO,  TIMEl 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 
REAL  SOLAR  1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
REAL  EARTH  1,  EARTH2,  EARTH 3,  EARTH4,  EARTH 5,  EARTH 6 
REAL  ALBED1,  ALBED2.  ALBED3,  ALBED4,  ALBED5,  ALBED6 
REAL  ABS1.  ABS2,  ABS3.  ABS4.  ABS5,  ABS6 
REAL  SACK  SAC2,  SAC3.  SAC4,  SACS,  SAC6 
REAL  SUN.  ECLIPS.  Ql.  Q2.  Q3,  PERIOD,  PI 
REAL  PI.  P2.  P3.  P4.  PS.  P6 


INTEGER  I.  J,  K.  M.  N.  P.  IF.  L.  IFP1,  LAST,  G.  Q 
INTEGER  COUNT.  FREQ.  ANSI.  ANS2.  ANS3,  VAL,  NOUT 

COMMON  TINTT,  TSTAR1.  TSTAR2.  T,  TEMP 

COMMON  CP.  Kl.  RHO.  R,  RI.  R2.  TIME.  DELT 

COMMON  LX.  LY,  LZ.  DELX.  DELY.  DELZ 

COMMON  I.  J.  K,  M.  N,  P,  IF,  L.  IFPi,  LAST 

COMMON  A.  B.  C.  D,  BETA,  GAMMA.  G,  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2,  TA.MB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3.  H4,  H5,  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  UI,  U2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3,  V4,  VS,  V6 

COMMON  Wl,  \V2,  W3,  W4,  W5,  W6 

COMMON  XI,  X2,  X3,  X4,  X5.  X6 

COMMON  COUNT.  FREQ 
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COMMON  EPS1.  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 
COMMON  QDOT,  GEN.  VI 
COMMON  TIMEO,  TIME1 

COMMON  SOLAR,  EARTH,  RE,  DIST,  ALT,  FE,  FA,  ML 
COMMON  SOLAR1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH 5,  EARTH6 
COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 
COMMON  SAC  1 ,  SAC2.  SAC 3,  SAC4,  SAC5,  SAC 6 
COMMON  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 
COMMON  PI,  P2,  P3,  P4,  P5,  P6 

IF((I.EQ.I )  .AND.  (J.EQ.l))  THEN 
D(I)  =  T(U,K)  +  U2'*(T(I,J,K-1)  +  T(U,K+ 1)  -  2*T(I,J,K))  + 

&  U3*(T(1,J  +  l.K)  -  T(I.J,K))  +  V1*(TAMB1  -  T(LJ.K))  + 

&  V'6:'(TAMB6  -  T(U,K))  +  WI  +  \V6  + 

<fc  X1*(T(I,J.K)**4  -  TAM B  1**4)  + 

&  X6*(T(LJ,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  .AND.  (J.EQ.l))  THEN 
D(l)  =  T(I.J.K)  +  U2*(T(I.J,K*1)  +  T(I,J,K+  1)  -  2*T(1J,K))  + 

&  L^n'TdJ^UK)  -  T(I,J,K))  +  V1*(TAMB1  -  T(I,J,K))  + 

&  \Y1  +  X1!%(T(I,J.K)**4  -  TAMB1**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.M)  .AND.  (J.EQ.l))  THEN 
D(I)  =  T(IJ,K)  +  U2*(T(I,J,K-1)  +  T(U,K+ 1)  -  2*T(I,J,K))  + 

&  U3*(T(1  J  +  l.K)  -  T(U,K))  +  V1*(TAMB1  -  T(I,J,K))  + 

&  V5*(TAMB5  -  T(I,J,K))  +  Wl  +  W5  + 

&  X1*(T(I,J,K)**4  -  TAMB1**4)  + 

&  X5*(T(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(U,K) 

ELSE  IF((l.EQ.l)  .AND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN 
D(I)  =  T(I,J,K)  +  U1*(T(I J-l.K)  +  T(I,J+1,K)- 2*T(U,K))  + 

&  U2*(T(I.J.K-1)  +  T(IJ,K+  1)  -  2*T(I,J,K))  + 
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&  V6*(TA\1B6  -  T(IJ,K))  +  \V6  + 

&  X6*(T(IJ,K)**4  -  TAMB6**4)  +  Y1*QD0T(I,J,K) 

ELSE  I F((( I.GT.  1 )  .AND.  (I.LT.M))  .AND.  ((J.GT.l)  .AND. 

&  (J.LT.N)))  THEN 

D(I)  =  T(U,K)  +  L'1*(T(I,J-I,K)  +  T(U+1,K)-2*T(U,K))  + 
&  U2*(T(U,K-1)  +  T(U,K+1)-2*T(I,J,K))  + 

&  Yl*QDOT(I,J,K) 

ELSE  IF((I.EQ.M)  .AND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN 
D(I )  =  T(1.J.K)  +  Ul*(T(IrM,K)  +  T(I,J+1,K)-2*T(U,K))  + 
&  U2*(T(1J.K-1)  +  T(I.J.K  +  1)  -  2*T(IJ,K))  + 

&  V5*(TAMB5  -  T(1.J.K))  +  W5  + 

&  X5*(T(I,J,K)*»4  -  TAMB5**4)  +  Yl*QDOT(I.J,K) 

ELSE  1F((1.EQ.1)  .AND.  (J.EQ.N))  THEN 
D(I>  =  T(I.J,K)  +  U2*(T(I.J.K-1)  +  T(1,J.K+1)-  2*T(IJ.K))  + 
&  U3*(T(I.J-1,K)  -  T(I.J.K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&  Y6*(TAMB6  -  T(I.J,K))  +  \Y2  +  W6  + 

&  X2*(T(LJ.K)**4  -  TAMB2**4)  + 

&  X6*(T(I.J.K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  1F(((1.GT.1)  .AND.  (I.LT.M))  .AND.  (J.EQ.N))  THEN 
D(I)  =  T(1.J.K)  +  U2*(T(I.J.K-1 )  +  T(I,J,K+1)-  2*T(U,K))  + 
&  L'3*(T(I  J-l.K)  -  T(I.J.K ))  +  V2*(TAMB2  -  T(LJ,K))  + 

&  W2  +  X2*(T(IIJ,K)**4  -  TA.MB2-4)  +  Yl*QDOT(U,K) 

ELSE 

D(I)  =  T(U,K)  +■  U2*(T(U,K-1)  +  T(U,K  +  1)-2*T(U,K))  + 
&  U3*(T(I,J-1,K)  -  T(U,K))  +  V2*(TAMB2  -  T(I,J,K))  + 

&  V5*(TAMB5  -  T(I,J,K))  +  \V2  +  W5  + 

&  X2*(T(U,K)**4  -  TAMB2**4)  + 

&  X5*(T(I,J.K)**4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 
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EXDIF 


RETURN 

END 


*  SUBROUTINE  XRAY3 

* 

SUBROUTINE  XRAY3 

DIMENSION  A(  30).  B(  30),  C(  30),  D(  30),  TEMP(  30) 

DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSION  T(  30.  30,  30),  TSTAR1(  30,  30,  30) 

DIMENSION  TSTAR2(  30,  30,  30) 

* 

REAU  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAU  CP.  Kl.  RHO.  R.  Rl.  R2.  TIME,  DEUT 

REAL  LX.  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A.  B.  C,  D.  BETA.  GAMMA 

REAL  FLUX1,  FLUX2.  FLUX3.  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2.  TAMB3,  TAMB4.  TAMB5,  TAMB6 

REAL  HI,  H2.  H3,  H4.  H5.  H6 

REAL  BIOl,  BI02.  BI03,  B104.  BI05,  B106 

REAL  SI G 1 ,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

REAL  Ul.  U2.  U3,  U4,  U5 

REAL  VI.  V2.  Y3,  V4.  VS.  V6 

REAL  \Y1,  \V2,  W3,  \V4,  \Y5,  W6 

REAL  XI,  X2,  X3,  X4,  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Y1 

REAL  CTIME,  T1MEO,  TIME1 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  D1ST,  ALT,  FE,  FA,  MU 
REAL  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4.  SOLAR5,  SOLAR6 
REAL  EARTHI,  EARTH 2,  EARTH3,  EARTH4.  EARTH5,  EARTH6 
REAL  ALBED1.  ALBED2,  ALBED3.  ALBED4,  ALBED5,  ALBED6 
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REAL  ABS1,  ABS2.  ABS3.  ABS4,  ABS5.  ABS6 
REAL  SAC1.  SAC2.  SAC3,  SAC-1,  SAC5,  SAC6 
REAL  SUN.  ECL1PS.  Ql.  Q2.  Q3.  PERIOD,  PI 
REAL  PI,  P2,  P3.  P-1,  P5,  P6 


INTEGER  1.  J.  K,  M,  N,  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ.  ANSI,  ANS2,  ANS3,  VAL,  NOU'T 

COMMON  TIN1T,  TSTARl,  TSTAR2,  T,  TEMP 

COMMON  CP,  Kl,  RHO.  R,  Rl,  R2,  TIME,  DELT 

COMMON  LX.  LY,  L2.  DELX.  DELY,  DELZ 

COMMON  I,  J.  K.  M.  N.  P.  IF.  L,  IFP1.  LAST 

COMMON  A,  B.  C.  D.  BETA.  GAMMA.  G.  Q 

COMMON  FLUXl.  FLUX2.  FLUX3.  FLUX4.  FLUX5.  FLUX6 

COMMON  TA.MB1.  TAMB2.  TAMB3,  TAMB4,  TAMB5.  TAMB6 

COMMON  HI.  H2.  H3.  H4.  H5.  M6 

COMMON  BIOl,  BI02.  BI03.  BI04.  BIOS,  BI06 

COMMON  SIG1.  SIG2.  SIG3.  SIG4.  SIG5.  SIG6 

COMMON  Ul.  U2.  U3.  U4.  U5 

COMMON  VI.  Y2.  Y3.  Y4.  Y5.  Y6 

COMMON  WI.  W2.  \Y3.  W4.  \Y5.  \Y6 

COMMON  XI.  X2.  X3.  X4,  X5.  X6 

COMMON  COUNT,  FREQ 

COMMON  EPS1 ,  EPS2,  EPS3.  EPS4,  EPS5.  EPS6 

COMMON  QDOT.  GEN.  Yl 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR,  EARTH,  RE,  DIST,  ALT,  FE,  FA,  MU 
COMMON  SOLAR!,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
COMMON  EARTH  1.  EARTH 2,  EARTH3,  EARTH4.  EARTH5,  EARTH6 
COMMON  ALBED1.  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 
COMMON  SAC  I,  SAC2.  SAC3.  SAC4.  SAC5,  SAC6 
COMMON  SUN.  ECLIPS.  QI.  Q2.  Q3.  PERIOD.  PI 
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COMMON  PI.  P2.  P3.  P4,  P5,  P6 

IF((I.EQ.l)  .AND.  (J.EQ.D)  THEN 
D( I)  =  T(U.K)  +  L'3*(T(I  J  +  TK)  -  T(I.J,K))  + 

&  L'4*(T(U.K-1)  -  T(IJ,K))  +  V1*(TA.MB!  -  T(IJ,K))  + 

6c  V4*(TAMB4  -  T(I,J,K))  +  V6*(TAMB6  -  T(1,J,K))  +  VV1  4- 

&  W4  +  W6  +  X1*(T(U.K)**4  -  TA.MB1**4)  4- 
&  X4*(T(I  J.K)**4  -  TAMB4**4)  + 

&  X6*(T(U,K)**4  -  TAMB6**4)  +  Yl*QDOT(I  J.K) 

ELSE  IF(((I.GT.  1 )  .AND.  (I.LT.M))  .AND.  (J.EQ.I))  THEN 
Dll)  =  T(U.K)  -  L'3*(T(IJ+1.K)-T(IJ.K))  + 

6c  L'4*(T(IJ.K  l)  -  T(I.J.K))  +  V1*(TAMB1  -  T(I.J.K))  + 

&  V4*(TAMB4  -  T(I .J,K))  +  \V1  +  \V4  + 

6c  XI*(TdJ.K)**4  -  TAMBI**4)  + 

&  X4':{T(I.J.K )**4  -  TaMB4**4)  +  Yl*QDOT(IJ,K) 


ELSE  IF(d.EQ.M)  .AND.  (J.EQ.I))  THEN 
DiI)  =  Td.J.K )  +  L'3!:(T(I.J+  l.K)  -  T(1J.K))  + 

6c  L4*(T(IJ.Kd)  -  T(IJ.K))  4-  Y1*(TAMBI  -  T(IJ.K))  + 

V4::(TAMB4  -  T(I.J.K))  +  Y5*(TAMB5  -  T(U.K))  4-  \VI  4- 
6c  \Y4  4-  \V5  4-  X1*(T(IJ.K)**4  -  TAM B  1**4)  4- 
&  X4*(TdJ.K)**4  -  TAMB4**4)  + 

6c  X5*(T(U.K)**4  -  TAMB5**4)  4-  Yl*QDOT(I J.K) 

ELSE  1  F(( I.EQ.  1 )  .AND.  ((J.GT.l)  .AND.  (J.LT.N)))  THEN 
D(I)  =  T(LJ.K)  +  U1*(T(IJ-1,K)  4-  T(IJ+1,K)-  2*T(IJ,K))  + 
&  U4*(T(IJ,K-1)  -  T(I J,K))  +  V4*(TAMB4  -  T(IJ,K))  + 

&  V6*(TAMB6  -  T(I  J.K))  +  W4  +  \V6  + 

&  X4*(T(IJ.K)**4  -  TAMB4**4)  + 

&  X6*(T(IJ,K)**4  -  TAMB6**4)  +  Yl*QDOT(I J.K) 

ELSE  IF(((I.GT.  1 )  .AND.  (I.LT.M))  .AND.  ((J.GT.l)  AND. 

6c  (J.LT.N)))  THEN 
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D(D  =  T(IJ.K)  +  U1*(T(IJ-1,K)  +  T(I,J4  1,K)  -  2*T(I.J,K))  + 
fc  U4*(T<I.J.K-1)  -  T(IJ.K))  4  V4*(TAMB4  -  T(IJ,K))  + 
i  W4  +  X4*(T(1,J.K)**4  -  TAMB4**4)  4  Yl*QDOT(I  J.K) 

ELSE  IF((I.EQ.M)  .AND.  ((J.GT.I)  .AND.  (J.LT.N)))  THEN 
D(I)  =  T(I,J,K)  +  L'1*(T(I  J-1,K)  4  T(IJ4  1,K)-2*T(IJ,K))  + 
t  U4*(T(U.K-1)  -  T(I,J,K))  +  V4*(TAMB4  -  T(IJ,K))  4 
fc  V5*(TAMB5  -  T(I,J,K))  +  \V4  4  W5  4 
fc  X4*(T(1J.K)**4  -  TAMB4<‘*4)  4 

t  X5*(T(I.J.K)**4  -  TAMB5**4)  4  Y1*QD0T(IJ,K) 

ELSE  IF(iT.EQ.l)  .AND.  (J.EQ.N))  THEN 
D(I)  =  T(IJ.K)  +  U.vnT(LJ-EK)  -  T(I.J.K))  + 
t  L4’:,(T(I.J.K-1 )  -  T(IJ,K»  +  V2*(TAMB2  -  T(I.J,K))  + 

t  Y4*(TAMB4  -  T(IJ.K))  +  V6*(TAMB6  -  T(1.J.K))  +  \V2  4 

c  \V4  4  \Y6  4  X2*(T(IJ,K)**4  -  TA\1B2**4)  + 
c  X4*(T(IJ.K)**4  -  TA\1B4**4)  + 

c  X6:(T(1.J.K)**4  -  TA.\1B6**4)  +  Y1*QD0T(IJ,K) 

ELSE  IF(((I.GT.l)  .AND.  (I.LT.M))  .AND.  (J.EQ.N))  THEN 
D(I)  =  T(U.K)  +  l'3*(T(I.J-l.K)  -  T(I.J.K))  4 
i  L 4:'(T(I.J.K-1 )  -  T(I.J.K))  4  V2*(TAMB2  -  T(I,J,K))  + 
l  Y4YTAMB4  -  T( I. J.K))  4  \V2  4  \Y4  4 
c  X2*(T(IJ.K)**4  -  TAMB2**4)  4 

w  X4*(T(IJ.K)**4-TAMB4**4)  4  Y1*QD0T(I  J,K) 

ELSE 

D(I)  =  T(IJ,K)  4  U3*(T(U-1,K)  -  T(U,K))  4 
:  U4*(T(1J,K-1)  -  T(I,J,K))  4  V2*(TAMB2  -  T(IJ,K))  4 

:  V4*(TAMB4  -  T(I,J.K))  4  V5*(TAMB5  -  T(IJ,K))  4  \V2  4 

;  W4  4  W5  4  X2*(T(I,J,K)**4  -  TAMB2**4)  4 
:  X4*(T(IJ,K)**4  -  TAMB4**4)  4 

:  X5*(T(LJ,K)**4  -  TA\1B5**4)  4  Yl*QDOT(I,J,K) 


END  IF 


RETURN 

END 
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*  SUBROUTINES  YANK1,  YANK2,  AND  YANK3  COMPUTE  COEFFICIENT 

*  ARRAY  D  IN  THE  Y  DIRECTION 

*  SUBROUTINE  YANK  l 


SUBROUTINE  YANK) 

DIMENSION  A(  30).  B(  30).  C(  30).  D(  30).  TEMP(  30) 
DIMENSION  BETA(  30).  GAMMA(  30).  QDOT(  30.  30.  30) 
DIMENSION  T(  30.  30.  30).  TSTAR1(  30,  30.  30) 
DIMENSION  TSTAR2(  30,  30.  30) 

REAL  TINTT.  TSTAR1,  TSTAR2.  T.  TEMP 

REAL  CP.  Kl.  RHO.  R.  Rl.  R2.  TIME.  DELT 

REAL  LX.  LY,  LZ.  DELX.  DELY,  DELZ 

REAL  A.  B.  C.  D.  BETA.  GAMMA 

REAL  FLUX1,  FLUX2,  FLUX3.  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2.  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

REAL  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

REAL  Ul,  U2,  U3.  U4,  U5 

REAL  VI,  V2,  V3,  V4,  V5,  V6 

REAL  Wl,  \V2,  \V3,  \V4.  W5,  W6 

REAL  XI,  X2.  X3,  X4.  X5,  X6 

REAL  EPS1.  EPS2,  EPS3,  EPS4,  EPS5.  EPS6 


152 


REAL  QDOT.  GEN,  VI 
REAL  CTIME,  TIMEO,  TIM  El 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  Ml 
REAL  SOLAR  1.  SOLAR2.  SOLAR3,  SOLAR4.  SOLAR5,  SOLAR6 
REAL  EARTH1,  EARTH2,  EARTH 3,  EARTH4,  EARTH5,  EARTH6 
REAL  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
REAL  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 
REAL  SAC  1 ,  SAC2.  SAC3,  SAC4,  SACS,  SAC6 
REAL  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD.  PI 
REAL  PI,  P2,  P3,  P4.  PS,  P6 

INTEGER  I.  J.  K.  M.  N,  P,  IF.  L.  IFPI,  LAST.  G,  Q 
INTEGER  COUNT.  FREQ.  ANSI.  ANS2.  AN  S3.  VAL,  NOUT 


COMMON  TINTT.  TSTAR1.  TSTAR2.  T.  TEMP 

COMMON  CP.  Kl.  RHO.  R.  Rl.  R2,  TIME.  DELT 

COMMON  LX,  LY.  LZ.  DELX.  DELY.  DELZ 

COMMON  I.  J.  K.  M,  N.  P.  IF.  L.  IFPI.  LAST 

COMMON  A.  B.  C,  D.  BETA.  GAMMA,  G.  Q 

COMMON  FLUXl.  FLUX2.  FLUX3.  FLUX4,  FLUX5.  FLUX6 

COMMON  TAMB1,  TAMB2.  TAMB3.  TAMB4,  TAMB5.  TAMB6 

COMMON  HI.  H2,  H3.  H4.  H5.  H6 

COMMON  BIOl.  BI02.  BI03.  BI04,  B105.  BI06 

COMMON  SIG1,  SIG2,  SIG3.  SIG4,  SIG5,  SIG6 

COMMON  Ul.  U2,  U3.  U4,  U5 

COMMON  VI.  Y2,  Y3.  Y4,  Y5.  Y6 

COMMON  Wl,  \Y2,  \V3,  \V4,  W5,  W6 

COMMON  Xi,  X2,  X3,  X4,  X5,  X6 

COMMON  COUNT.  FREQ 

COMMON  EPSI.  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN,  Y1 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR.  EARTH,  RE,  DIST,  ALT,  FE.  FA,  MU 
COMMON  SOLAR1.  SOLAR2.  SOLAR3,  SOLAR4,  SOLARS,  SOLAR6 
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COMMON  EARTH  1,  EARTH2.  EARTH 3,  EARTH4.  EARTH5,  EARTH 6 

COMMON  ALBED1.  ALBED2,  ALBED3,  AEBED-i.  ALBED5,  ALBED6 

COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 

COMMON  SAC  1 ,  SAC:.  SAC 3,  SAC4.  SAC5,  SAC6 

COMMON  SEN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD.  PI 

COMMON  PI.  P2,  P3,  P4,  P5,  P6 

IF((J.EQ.l)  .AND.  (I.EQ.l))  THEN 
D(J)  =  T(I,J,K)  +  L4*(T(U,K  +  Q-  T(IJ.K))  + 

&  U5*(TSTAR1(I  +  1.J.K)  -  TSTAR1(1,J.K))  + 

&  V1*(TAMB1  -  T(I.J.K))  +  V3*(TAMB3  -  T(IJ.K))  + 

&l  Y6*(TAMB6  -  T(IJ.K))  +  \V1  +  \V3  +  \Y6  + 

&  X1*(T(IJ.K)**4  -  TAM 61**4)  + 

&  X3*(T(IJ,K)**4  -  TAM B 3**4)  + 

£  X6*(T(IJ.K)**4  -  TAMB6**4)  +  Yl*QDOT(IJfK) 


ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  (I.EQ.l))  THEN 
D(J)  =  T(I.J.K)  +  U4*(T(I,J.K  +  1)  -  T(IJ.K))  + 

&  L’5*(TSTAR1(I  +  1.J.K)  -  TSTARl(IJ.K))  + 

&  V3*(TAMB3  •  T(I.J.K))  +  V6*(TAMB6  -  T(I.J.K))  + 
&  \V3  +  W6  +  X3*(T(I,J.K)**4  -  TAMB3**4)  + 

&  X6*(T(IJ.K)**4  -  TAMB6**4)  +  Yl*QDOT(U,K) 


ELSE  IF((J.EQ.N)  AND.  (I.EQ.l))  THEN 
D(J)  =  T(I.J.K)  +  L'4*(T(I,J.K+  1)  -  T(I.J.K))  + 

&  U5*(TSTAR.I(I  +  1J.K)  -  TSTARl(IJ.K))  + 

&  V2*(TAMB2  -  T(1,J,K))  +  V3*(TAMB3  -  T(I,J,K))  + 
&  V6*(TAMB6  -  T(I,J,K))  +  W2  +  W3  +  W6  + 

&  X2*(T(U,K)**4  -  TAMB2**4)  + 

&  X3*(T(U.K)**4  -  TAMB3**4)  + 

&  X6*(T(U.K)**4  -  TAMB6**4)  +  Yl*QDOT(l,J,K) 

ELSE  IF((J.EQ.I)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 
D(J)  =  T(I.J.K)  +  L‘4*(T(IJ.K+  1)  -  T(I.J.K))  + 
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&  FO*(TSTARl(M,J.K)  +  TSTARld  +  1,J,K)  -  2*TSTAR1(I,J,K)) 
&  +  Y1*(TAMB1  -  T(I.J.K))  +  Y3*(TAMB3  -  T(I,J,K))  +  \V1  + 

&  W3  +  X1*(T(1.J.K)**4  -  TAM B  1**4)  + 

&  X3*(T(U.K)**4  -  TAMB3**4)  +  Y1*QD0T(1,J,K) 

ELSE  IF(«J.GT.l)  .AND.  (J.LT.N))  .AND.  ((I.GT.l)  .AND. 

&  (l.LT.M)))  THEN 

D(J)  =  T(U.K)  +  L'4*(T(I.J.K+  1)  -  T(1J.K))  + 

&  F0*(TSTAR1(I-1,J,K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I,J,K)) 

&  +  V3*(TAMB3  -  T(I,J,K))  +  W3  + 

&  X3*(T(I,J,K)**4  -  TAMB3**4)  +  Y1*QD0T(I  J,K) 


ELSE  IF((J.EQ.N>  .AND.  ((I.GT.l)  .AND.  (l.LT.M)))  THEN 
D(J )  =  T(IJ.K)  +  U4*(T(I.J.K-r  1)  -  T(IJ.K))  + 

&  FO*(TSTARli  I-l.J.K )  *  TSTAR1(I -r  1,J,K)  -  2*TSTAR1(I,J.K)) 
&  +  Y2*(TAMB2  -  T(1.J.K))  +  V3*(TAMB3  -  T(IJ,K))  +  W2  + 

&  W3  -  X2 *( T(I.J.K) * *4  -  TA M B 2 * *4)  + 

•fc  X3*(T(I.J.K)**4  -  TAMB3**4)  +  Y1*QD0T(1.J,K) 

ELSE  IF((J  EQ.I)  .AND.  (I.EQ.M)t  THEN 
D(J )  =  T(IJ.K)  -i-  L’4*(T(1.J.K  +  1)  -  T(I.J,K))  + 

Sc  U5';(TSTAR1(1-!.J.K)  -  TSTARl(LJ.K))  + 

&  Y1*(TAMB1  -  T(lJ.Kl)  +  Y3*(TAMB3  -  T(I.J.K))  + 

&  Y5*(TAMB5  -  T(l.J.K))  +  \V1  +  \V3  +  W5  + 

&  X1*(T(I.J.K)**4  -  TA  MB  1**4)  + 

&  X3*(T(I,J.K)**4  -  TAMB3**4)  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Y1*QD0T(I,J,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  (I.EQ.M))  THEN 
D(J )  =  T(I,J,K)  +  U4*(T(I,J,K+  1)  -  T(1,J.K))  + 

&  U5*(TSTAR1(1-U,K)  -  TSTAR1(1,J,K))  + 

&  V3*(TAMB3  -  T(U.K))  +  V5*(TAMB5  -  T(U,K))  +  W3  + 

&  \V5  +  X3*(T(1  J.K )**4  -  TAMB3**4)  + 
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&  X5*(T(I,J.K)**4  -  TAMB5**4)  +  YI*QDOT(I  J.K) 

ELSE 

D(J)  =  T(U,K)  +  U4*(T(IJ.K+l)-T(ItJ,K))  + 

&  L'5*(TSTAR1(I-U,K)  -  TSTARl(U.K))  + 

&  V2*(TAMB2  -  T(U,K))  +  V3*(TAMB3  -  T(I,J,K))  + 
&  V5*(TAMB5  -  T(U,K))  +  VV2  +  W3  +  W5  + 

&  X2--(T(U,K)^4  -  TAMB2**4)  + 

&  X3*(I(1,J.K)**4  -  TAMB3**4)  + 

&  X5*(T(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(U,K) 

END  IF 

RETURN- 

END 


*  SUBROUTINE  YANK 2 

y. 

SUBROUTINE  YANK 2 

DIMENSION  A(  30).  B(  30),  C(  30).  D(  30).  TEMP(  30) 
DIMENSION  BETA(  30).  GAMMA(  30).  QDOT(  30,  30.  30) 
DIMENSION  T(  30.  30,  30).  TSTAR1(  30,  30,  30) 
DIMENSION  TSTAR2(  30,  30,  30) 


REAL  TINIT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  KI,  RHO,  R,  Rl,  R2,  TIME,  DELT 

REAL  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C.  D,  BETA.  GAMMA 

REAL  FLUX  I,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4.  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  BIOl.  BI02,  BI03.  BI04,  BI05,  BI06 

REAL  SIGI.  SIG2,  SIG3,  SIG4.  SIG5,  SIG6 
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REAL  Ul,  U2.  U3,  L‘4,  U5 

REAL  VI.  V2.  V3,  V4.  V5.  V6 

REAL  Wl.  W2,  W3,  \V4,  \V5,  W6 

REAL  XI,  X2,  X3,  X4,  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Y1 

REAL  CTI.ME,  TIMEO,  TIME! 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 
REAL  SOLARI,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
REAL  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 
REAL  ALBED1.  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
REAL  ABS1.  ABS2,  ABS3.  ABS4.  ABS5,  ABS6 
REAL  SAC1,  SAC2.  SAC3,  SAC4,  SAC5,  SAC6 
REAL  SUN.  ECLIPS,  Ql.  Q2.  Q3.  PERIOD.  PI 
REAL  PI.  P2.  P3.  P4,  P5.  P6 

INTEGER  I.  J.  K.  M,  N,  P.  IF.  L.  IFP1.  LAST,  G,  Q 
INTEGER  COUNT.  FREQ.  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  T1NIT.  TSTAR1,  TSTAR2,  T.  TEMP 

COMMON  CP,  Kl.  RHO.  R.  Rl.  R2,  TIME,  DELT 

COMMON  LX.  LY.  LZ.  DELX.  DELY.  DELZ 

COMMON  I,  J,  K.  M.  N,  P.  IF.  L.  IFPI,  LAST 

COMMON  A.  B.  C.  D.  BETA.  GAMMA.  G,  Q 

COMMON  FLUX1.  FLUX2,  FLUX3.  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMBI,  TAMB2,  TAMB3,  TA.MB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5,  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BI05,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  Ul,  U2,  U3,  U4,  U5 

COMMON  VI,  V2,  V3,  V4.  V5,  V6 

COMMON  Wl,  \V2,  W3,  W4,  W5,  W6 

COMMON  XI.  X2.  X3,  X4.  X5.  X6 

COMMON  COUNT,  FREQ 
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COMMON  EPS1.  EPS2,  EPS3.  EPS4.  EPS5,  EPS6 
COMMON  QDOT.  GEN,  VI 
COMMON  TIMEO.  TIME] 

COMMON  SOLAR,  EARTH.  RE,  DIST,  ALT,  FE,  FA,  MU 
COMMON  SOLAR1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
COMMON  EARTH  1,  EARTH 2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 
COMMON  ALBED1,  ALBED2,  ALBED3.  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 
COMMON  SAC1,  SAC2,  SAC3.  SAC4,  SAC5,  SAC6 
COMMON  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 
COMMON  PI,  P2,  P3,  P4.  P5,  P6 


]F((J.EQ.l)  .AND.  (I.EQ.I ))  THEN 
D(J )  =  T(IJ.K)  +  U2*(T(I.J.K-1)  +  T(IJ,K  +  1)  -  2*T(IJ,K))  + 

&  U5*(TSTAR1(I -r  1.J.K)  -  TSTARl(lJ.K)) 

&  h-  \T'(TA.MBI  -  T(LJ.K))  +  V6*(TAMB6  -  T(IJ.K))  +  W 1  + 
k  W6  +  X1*(T(I.J.K)**4  -  TA MB  1**4)  + 

&  X6*(T(  I.J.K)**4  -  TAMB6**4)  +  Vl*QDOT(U,K) 


ELSE  1F(((J.GT.1)  .AND.  (J.LT.N))  .AND.  (I.EQ.I))  THEN 
D(J)  *  T(I.J.K)  +  U2*(T(1.J,K-1)  +  T(IJ.K  +  1)  -  2*T(I.J.K»  + 

&  L‘5*(TSTAR1(I  +  1,J,K)  -  TSTAR1H  J.K)) 

+  V6*(TAMB6  -  T(IJ.K))  +  \V6  + 

&  X6*(T(I.J,K)**4  -  TA.MB6**4)  +  Vl*QDOT(I J,K) 

ELSE  IF((J.EQ.N)  .AND.  (I.EQ.I))  THEN 
D(J)  =  T(I.J.K)  +  U2*(T(U,K-1)  +  T(I,J,K+  1)  -  2*T(I,J,K))  + 

&  U5*(TSTAR1(!  +  !,J,K)  -  TSTARl(U.K)) 

&  +  V2*(TAMB2  -  T(I.J,K))  +  V6*(TAMB6  -  T(I,J,K))  +  W2  + 

&  W6  +  X2*(T(IJ,K)**4  -  TAMB2**4)  + 

&  X6*(T(I,J,K)**4  -  TAMB6**4)  +  YI*QDOT(I,J,K) 

ELSE  IF(fJ.EQ.l)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 
D(J)  =  T(  I  .J.K)  +  U2*(T(I.J.K-1 )  +  T(I  J.K  +  1 )  -  2*T(I.J.K))  + 
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&  FO*(TSTARl(I-IJ,K)  +  TSTAR1(I  +  1J,K)  -  2*TSTAR1(I  ,J,K)) 
&  +  Y1*(TAMB1  -  T(U.K))  +  W1  + 

cY  X1*(T(I,J,K)**4  -  TA MB  1**4)  +  YI*QDOT(I,J,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  ((I.GT.l)  .AND. 

&  (I.LT.M)))  THEN 

D(J)  =  T(I.J,K)  +  U2*(T(U,K-1)  +  T(IJ,K+1)-2*T(IJ,K))  + 

&  FO*(TSTAR  1(1-1, J,K)  +  TSTAR1(1  +  1,J,K)  -  2*TSTAR1(I ,J,K)) 

&  +  Yl*QDOT(I,J,K) 

ELSE  1F((J.EQ.N)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 
D(J)  =  T(LJ.K)  +  U2*(T(I,J.K-1)  +  T(IJ,K  +  1)  -  2*T(1,J.K))  + 

&  F0*(TSTAR1(I-1.J.K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I J.K)) 

&  +  Y2*(TAMB2  -  T(U.K))  +  \Y2  + 

&  X2*(T(I.J.K )**4  -  TAM B 2**4)  +  Yl*QDOT(I.J.K) 

ELSE  IFf(J.EQ.l)  .AND.  (I.EQ.M))  THEN 
D(J)  =  T(I.J.K)  +  L'2*(T(I J.K-1 )  +  T(1J,K+ 1)  -  2*T(I,J,K))  + 

&  L’5*(TSTAR  1(1-1. J.K)  -  TSTARl(LJ.K)) 

&  +  Y1*(TAMB1  -  T(I.J.K))  +  Y5*(TAMB5  -  T(LJ.K))  +  W1  + 

6c  \Y5  +  X 1  *(  T(  1  .J ,  K  )* *4  -  T A M  B 1  * *4)  + 

A  X5*(T(1.J.K)**4  -  TAMB5**4)  +  Y1*QD0T(LJ,K) 

ELSE  IF(((J.GT.l)  .AND.  (J.LT.N))  .AND.  (I.EQ.M))  THEN 
D(J)  =  T(IJ.K)  +  U2*(T(I.J.K-1)  +  T(I.J,K  +  l)-  2*T(IJ.K))  + 

&  U5*(TSTAR1(1-1,J,K)  -  TSTAR1(I,J,K)) 

&  +  V5*(TAMB5  -  T(I,J,K))  +  W5  + 

&  X5*(T(I,J,K)**4  -  TAMB5**4)  +  Y1*QD0T(I  J,K) 

ELSE 

D(J)  =  T(I.J.K)  +  U2*(T(I  J.K-1)  +  T(IJ,K+  1)  -  2*T(I,J,K))  + 

&  U5*(TSTAR1(I-1  ,J,K)  -  TSTAR1(I ,J,K)) 

8c  +  Y2*(TAMB2  -  T(I  J.K))  +  V5*(TAMB5  -  T(IJ,K))  +  W2  4- 
&  \Y5  +  X2 *(  1(1. J.K)* *4  -  T A M B 2 * *4)  + 
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&  X5*(T(IJ.K)**4  -  TAM 85**4)  +  Y1*QD0T(I.J,K) 

EXDIF 

RETURN 

END 


SUBROUTINE  YANK 3 

SUBROUTINE  YANK 3 

DIMENSION  A{  30).  B(  30).  C(  30).  D(  30),  TEMP(  30) 
DIMENSION  BET  \(  30).  GAMMA(  30),  QDOT(  30.  30.  30) 
DIMENSION  T(  30.  30.  30).  TSTAR1(  30,  30,  30) 

DIMENSION  TSTAR2(  30,  30.  30) 

REAL  TINTT.  TSTAR1.  TSTAR2,  T.  TEMP 

REAL  CP.  Kl,  RHO.  R.  Rl.  R2.  TIME.  DELT 

REAL  LX.  LY.  LZ.  DELX,  DELY.  DELZ 

REAL  A.  B.  C,  D.  BETA.  GAMMA 

REAL  FLL'Xl.  FLUX2.  FLUX3.  FLUX4.  FLUX5.  FLUX6 

REAL  TAMB1,  TAMB2.  TAMB3,  TAMB4.  TAMB5.  TAMB6 

REAL  HI.  FI 2.  H3,  H4,  115.  H6 

REAL  BIOl,  BI02,  BI03.  BI04.  BI05.  BI06 

REAL  S1G1 ,  SIG2.  SIG3,  SIG4,  SIG5,  SIG6 

REAL  UI.  U2,  U3,  U4.  U5 

REAL  VI,  V2,  V3,  V4,  V5,  V6 

REAL  Wl,  W2,  W3,  W4,  W5,  W6 

REAL  XI,  X2.  X3.  X4,  X5,  X6 

REAL  EPS1,  EPS2,  EPS3.  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Y1 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR.  EARTH.  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 
REAL  SOLAR),  SOLAR2.  SOLAR3.  SOLAR4,  SOLAR5,  SOLAR6 


160 


REAL  EARTH1,  EARTH2.  EARTH 3,  EARTH4,  EARTH5,  EARTH 6 

REAL  ALBED1.  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 

REAL  ABS1,  ABS2,  ABS3.  ABS4,  ABS5,  ABS6 

REAL  SAC1,  SAC2.  SAC 3,  SAC4.  SACS,  SAC6 

REAL  SUN,  ECLIPS,  Ql.  Q2,  Q3,  PERIOD,  PI 

REAL  PI,  P2,  P3,  P4,  PS,  P6 

INTEGER  I,  J,  K.  M,  N,  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ,  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  TINIT.  TSTARI,  TSTAR2,  T,  TEMP 

COMMON  CP.  Kl,  RHO.  R.  Rl.  R2.  TIME.  DELT 

COMMON  LX.  LY,  LZ.  DELX.  DELY.  DELZ 

COMMON  I.  J.  K.  M.  N.  P,  IF,  L.  IFP1,  LAST 

COMMON  A.  B,  C.  D.  BETA.  GAMMA.  G,  Q 

COMMON  FLUX1.  FLUX2.  FLUX3.  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2.  TAMB3,  TAMB4,  TAMBS,  TAMB6 

COMMON  HI.  H2.  H3.  H4.  MS,  H6 

COMMON  BIOI.  BI02,  BIOS.  BI04.  BIOS.  BI06 

COMMON  SIOl.  SIG2.  SIG3.  S1G4.  SIGS,  SIG6 

COMMON  Ul.  U2.  U3,  U4.  US 

COMMON  VI.  V2.  V3.  V4.  VS.  V6 

COMMON  \V1.  \V2.  \V3.  \V4.  WS.  \V6 

COMMON  XI.  X2.  X3.  X4.  XS.  X6 

COMMON  COUNT.  FREQ 

COMMON  EPS1.  EPS2.  EPS3,  EPS4,  EPSS,  EPS6 

COMMON  QDOT,  GEN,  Y1 

COMMON  TIMEO,  TIME1 

COMMON  SOLAR,  EARTH,  RE,  DIST,  ALT,  FE.  FA,  MU 
COMMON  SOLAR  1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4.  EARTHS,  EARTH6 
COMMON  ALBEDI,  ALBED2.  ALBED3,  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  ABS2.  ABS3.  ABS4,  ABS5,  ABS6 
COMMON  SACK  SAC2.  SAC 3,  SAC4.  SACS,  SAC6 
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I 


COMMON  SUN.  ECLIPS.  Ql,  Q2,  Q3,  PERIOD,  PI 
COMMON  PI,  P2,  P3,  P4.  P5,  P6 


IF((J.EQ.l)  .AND.  (I.EQ.l))  THEN 
D(J)  =  T(IJ,K)  +  U4*(T(U,K-1)  -  T(U,K))  + 

&  U5*(TSTAR1(I  +  1,J,K)  -  TSTARI(I,J,K))  + 

&  V1*(TAMB1  -  T(I,J,K))  +  V4*(TAMB4  -  T(1,J,K))  + 

&  V6*(TAMB6  -  T(I,J,K))  +  W1  +  \V4  +  W6  + 

&  X1*(T(I,J.K)**4  -  TAMB1**4)  + 

&  X4*(T(IJfK)**4  -  TAMB4**4)  + 

&  X6*(T(IJ.K)**4  -  TA\1B6**4)  +  Yl*QDOT(U,K) 

ELSE  IF(((J.GT.l )  .AND.  (J.LT.N))  .AND.  (I.EQ.l))  THEN 
D(J)  =  T(I.J.K)  +  U4*(T(I.J.K-1)  -  T(I.J,K))  -r 
&  l'5*(TSTARl(I  +  1J.K)  -  TSTARl(l.J.K))  + 

&  Y4MAMB4  -  T(I.J.K))  +  Y6*(TAMB6  -  T(I.J,K))  +  \V4  + 

A:  \V6  +  X4*(T(I.J,K)’"*4  -  TAMB4**4)  + 

&  X6*(T(U.K)**4  -  TAMB6**4)  +  Yl*QDOT(I.J,K) 

ELSE  IF((J.EQ.N)  .AND.  (I.EQ.l))  THEN 
D(J)  =  T(U.K)  +  U4*(T(I J.K-1 )  -  T(IJ.K))  + 

&  L'5*(TSTAR1(I  +  l.J.K)  -  TSTARl(l.J.K))  + 

&  V2*(TAMB2  -  T(IJ.K))  +  Y4*(TAMB4  -  T(I.J,K))  + 

&  V6*(TAMB6-  T(I.J.K))  +  \V2  +  \V4  +  \V6  + 

&  X2*(T(IJ.V)**4  -  TAMB2**4)  + 

&  X4*(T(I,J,K)**4  -  TAM 84**4)  + 

&  X6*(T(U,K)**4  -  TAMB6**4)  +  Yl*QDOT(U,K) 

ELSE  IF((J.EQ.l)  .AND.  ((l.GT.I)  .AND.  (I.LT.M)))  THEN 
D(J )  =  T(1,J,K)  +  U4*(T(U.K-1)-T(U,K))  + 

&  FO*(TSTARl(I-l,J,K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I,J.K)) 
&  +  Y1*(TAMB1  -  T( l.J.K))  +  V4*(TAMB4  -  T(I,J.K))  +  Wl  + 

&  W4  +  Xl*(THJ.K)**4  -  TAMB1**4)  + 
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<fc  X4*(T(I.J.K)**4  -  TAMB4**4)  -  Y1*QD0T(I.J,K) 

ELSE  IFu(J.GT.l)  .AND.  (J.LT.N))  .AND.  ((I.GT.lj  .AND. 

&  (ELT.M)))  THEN 

D(J)  =  T(I,J,K)  +  U4*(T(I,J,K-1)  -  T(I,J,K))  + 

&  FO*(TSTARl(I-l.J.K)  +  TSTAR1(I  +  1,J,K)  -  2*TSTAR1(I.J,K)) 

<fc  +  V4*(TAMB4  -  T(I,J,K))  +  \V4  + 

&  X4*(T(I,J.K)*'4  -  TAMB4**4)  +  Y1*QD0T(I,J,K) 

ELSE  IF((J.EQ.N)  .AND.  ((EGT.l )  .AND.  (ELT.M)))  THEN 
D(J)  =  T(l.J.K)  +  L4*(T(IJ,K-1)  -  T(I.J,K))  + 

&  FO*(TSTAR!(M.J.K)  +  TSTARld  +  1.J.K)  -  2*TSTAR1(I.J.K)) 
&  -  Y2*(TAMB2  -  T(IJ.K))  -  Y4*(TAMB4  -  T(U,K))  +  \V2  -f- 

&  \Y4  +  X2*(T(]  J.K  )*•'•■  4  -  TA.MB2**4)  + 

<Y  X4,:iT(I.J.K):;: !:"4  -  TAMB4**4)  +  YPQDOTUJ.K) 


ELSE  I F(( J.EQ.  1 1  .AND.  (EEQ.M  ))  THEN 
D(J )  =  T(IJ.K)  i-  L 4:(T( I.J.K-1 )  -  T(I.J.K))  + 
l/5*(TSTARI(M.J.K)  -  TSTARl(U.K))  + 

YDtTAMBI  -  T(I.J.K))  +  Y4*(TAMB4  -  T(I,J.K))  + 

N  Y5-(TAMB5  -  T(EJ.K))  +  \Y1  +  \Y4  +  \V5  + 

&  X1*(T(  E.l.K  )**4  -  TAM  BE"  4)  + 

•Sc  X4*(T(I.J.K  )**4  -  TAMB4*':4)  + 

&  X5*(T(I.J.K)»*4  -  TAMB5**4>  -  Yl*QDOT(I  .J,K) 

ELSE  IFu(J.GT.l)  .AND.  (J.LT.N))  .AND.  (I.EQ.M))  THEN 
D(J)  =  T(I,J.K)  +  L'4*(T(I,J.K-1)  -  T(I,J,K))  + 

&  L'5*(TSTAR1(I-1,J,K)  -  TSTAR1(I.J,K))  + 

&  V4*(TAMB4  -  T(U.K))  +  V5*(TAMB5  -  T(I,J,K))  +  \V4  + 
&  \V5  +  X4*(T(IJ,K)**4  -  TAMB4**4)  + 

&  X5*(T(I,J.K)**4  -  TAMB5**4)  +  YPQDOT(U,K) 

ELSE 

D'J)  =  T(I.J.K»  +  U4*(T( l.J.K-1)  -  T(1.J,K))  + 
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&  L'5’:HTSTAR1(I-1J.K)  -  TSTARl(IJ.K))  + 

&  V2*(TAMB2  -  TUJ.K))  +  V4*(TAMB4  -  T(U.K))  + 

&  V5*(TAMB5  -  T(I.J,K))  +  \V2  +  \Y4  +  \Y5  + 

&  X2*(T(  IJ.K )**4  -  TAM B 2* *4)  + 

&  X4*(T(U.K)**4  -  TAMB4**4)  + 

&  X5*(T(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(I.J,K) 

EXblF 

RETURN 

END 


ft  ft  ft ft  ft  ft  ft  ft  ft  ft  ft.  ft  ft  A  ft  ft  ft  ft.  ft  ^  ft  ft  ft.  ft  ft  ft  ft  ft  ft  ft  ft.  ft.  ft  ft  ft  ft  ft  ft  ft  $  ft.  ft  »Jt  £  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft.  ft.  ft  ft  ft  ft  ft  ft  ft.  ft  ft.  ft  ft. 


SUBROUTINES  ZULU1.  ZULU2.  AND  ZULU?  COMPUTE  COEFFICIENT 

*  ARRAY  D  IN  THE  Z  DIRECTION 

*  SUBROUTINE  ZULU! 

SUBROL  TINE  ZULU1 

DIMENSION  A(  30).  B(  30).  C(  30).  D(  30),  TEMP(  30) 

DIMENSION  BETA(  30).  GAMMA(  30),  QDOT(  30,  30,  30) 

DIMENSION  T(  30,  30.  30 1.  TSTAR1(  30.  30.  30) 

DIMENSION  TSTAR2(  30,  30.  30) 

REAL  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

REAL  CP,  Kl,  RHO,  R.  Rl,  R2,  TIME,  DELT 

REAL  LX.  LY,  LZ,  DELX,  DELY,  DELZ 

REAL  A,  B,  C.  D,  BETA,  GAMMA 

REAL  FLUXl,  FLUX2.  FLUX3,  FLUX4,  FLUX5.  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI.  H2,  H3.  H4.  H5,  H6 
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REAL  BIOl,  BI02.  BI03,  BI04.  BI05,  BI06 

REAL  SIG1.  SIG2,  SIG3.  SIG4,  SIG5,  SIG6 

REAL  L  I,  L2,  L3.  U4.  L5 

REAL  VI,  Y2.  V3.  V4.  V5.  V6 

REAL  Wl,  W2,  \V3,  W4,  W5,  \V6 

REAL  XI,  X2,  X3,  X4.  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  VI 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR,  EARTH.  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  ML 
REAL  SOLAR  1,  SOLAR2,  SOLAR3.  SOLAR4,  SOLARS,  SOLAR6 
REAL  EARTH  1.  EARTH2,  EARTH3,  EARTH4,  EARTHS.  EARTH 6 
REAL  ALBED1.  ALBED2,  ALBED3,  ALBED4,  ALBEDS,  ALBED6 
REAL  ABS1.  ABS2.  ABS3,  ABS4.  ABS5,  ABS6 
REAL  SAC  1 .  SAC2.  SAC 3.  SAC4.  SACS.  SAC6 
REAL  SEN.  ECLIPS.  Ql.  Q2.  Q3.  PERIOD.  PI 
REAL  PI,  P2.  P3.  P4.  PS,  P6 

INTEGER  I,  J.  K.  M,  N.  P.  IF.  L,  IFP1.  LAST,  G.  Q 
INTEGER  COL  NT.  FREQ.  ANSI.  ANS2,  ANS3,  VAL,  NOLT 

COMMON  TINTT,  TSTARl,  TSTAR2,  T.  TEMP 

COMMON  CP,  K 1 ,  RHO.  R.  RI,  R2,  TIME.  DELT 

COMMON  LX.  LY,  LZ.  DELX.  DELY,  DELZ 

COMMON  I,  J.  K.  M,  N.  P,  IF,  L.  IFP1,  LAST 

COMMON  A.  B,  C,  D,  BETA,  GAMMA,  G,  Q 

COMMON  FLLX1,  FLLX2,  FLLX3,  FLLX4,  FLLX5,  FLLX6 

COMMON  TAMB1,  TA.MB2,  TAMB3,  TA.MB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  HS,  H6 

COMMON  BIOl,  BI02,  BI03,  BI04,  BIOS,  BI06 

COMMON  SIG1,  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

COMMON  LI,  L2,  L3,  L4,  L5 

COMMON  VI.  V2.  V3,  V4,  V5.  V6 

COMMON  Wl.  W2,  W3,  W4.  W5,  \V6 
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COMMON  XL  X?.  X3.  X4.  XS,  X6 

COMMON  COUNT.  FREQ 

COMMON  EPS1.  EPS2.  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT.  GEN.  VI 

COMMON  TIMEO,  TIMEl 

COMMON  SOLAR,  EARTH.  RE,  DIST,  ALT,  FE,  FA,  MU 
COMMON  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 
COMMON  ALBED1,  ALBED2.  ALBED3,  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 
COMMON  SAC1,  SAC2.  SAC 3,  SAC4,  SACS,  SAC6 
COMMON  SUN.  ECLIPS.  Ql.  Q2,  Q3,  PERIOD,  PI 
COMMON  PI.  P2.  P3,  P4.  PS,  P6 


IF((K.EQ.  I )  .AND.  (I.EQ.I))  THEN 
D(K)  =  TSTAR2(I,J,K)  +  U3*(TSTAR2(I.J  +  l.K)  -  TSTAR2(I J,K))  + 
U5*(TSTAR1(I+  l.J,K)  -  TSTAR1(I.J,K))  + 

&  V1*(TAMBI  -  TSTAR2(1J.K»  +  Y3*(TAMB3  -  TSTAR2(I,J.U)) 
&  +  V6*(TAMB6  -  TSTAR2H.J.K))  +  \Y1  +  \Y3  +  \V6  + 

&  X 1 *(  TSTAR2(  I ,J .K  )* *4  -  TAM  B  1**4)  + 

&  X 3 *( T STA R 2( I .J . K )* *4  -  TAMB3**4)  + 

&  X6*(TSTAR2(I.J.K)**4  -  TAMB6**4)  +  Yl*QDOT(l.J.K) 

ELSE  IF(((K.GT.I )  .AND.  (K.LT.P))  .AND.  (I.EQ.I))  THEN 
D(K)  =  TSTAR2(I.J.K)  +  U3*(TSTAR2(I.J  +  l.K)  -  TSTAR2(I.J.K))  + 
&  U5*(TSTAR1(I  +  1,J,K)  -  TSTARl(LJ.K))  + 

&  V1*(TAMB1  -  TSTAR2(I,J,K))  +  V6*(TAMB6  -  TSTAR2(I,J,K)) 
&  W1  +  W6  +  X1*(TSTAR2(U,K)**4-  TAMB1**4)  + 

&  X6*(TSTAR2(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((K.EQ.P)  .AND.  (I.EQ.I))  THEN 
D(K)  «  TSTAR2(IJ,K)  +  U3*(TSTAR2(I,J+ 1,K)  -  TSTAR2(I,J,K))  + 
&  U5*(TSTARl(I  +  l.J,K)  -  TSTAR1(I,J,K))  + 

&  VI *(TA.MBI  -  TSTAR2(I.J,K))  +  V4*(TAMB4  -  TSTAR2H.J.K)) 
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&  +  Y6*(TAMB6  -  TSTAR2(I  J.K))  +  W1  +  W4  +  \V6  + 

&  X1*(TSTAR2(I.J.K)**4  -  TAMB1**4)  + 

&  X4*(TSTAR2(1.J.K)**4  -  TAMB4**4)  + 

X6*(TSTAR2(I.J.K)**4  -  TAMB6**4)  +  Y1*QD0T(IJ.K) 

ELSE  IF((K.EQ.l)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 
D(K)  =  TSTAR2(I J.K)  +  U3*(TSTAR2(I,J  +  1,K)  -  TSTAR2(I,J,K))  + 
&  F0*(TSTAR1(I-1.J,K)  +  TSTAR1(I  +  l.J,K)  -  2*TSTAR1(I,J,K)) 

&  +  V1*(TAMB1  -  TSTAR2(I  J,K))  + 

&  Y3*(TAMB3  -  TSTAR2(I,J.K))  +  W!  +  \V3  + 

&  X1*(TSTAR2HJ.K)**4  -  TAM 81**4,  + 

&  X3*(TSTAR2(1.J.K)**4  -  TAMB3**4)  +  Y1*QD0T(I.J.K) 


ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  ((I.GT.l)  .AND. 

(I.LT.M  )))  THEN 

D<K)  =  TSTAR2(1J.K)  +  L'3*(TSTAR2(I,J  +  l.K)  •  TSTAR2(1  J.K))  + 
&.  FO*(TSTAR  1(1-1. J.K )  +  TSTAR1(I  +  1.J.K)  -  2*TSTARI(I  J,K)) 

&  +  Y1*(TAMB1  -  TSTAR2(I,J,K))  +  W1  + 

&  X 1  *(  T  S  T  A  R  2(  I .  J .  K )  *  *  4  -  IAMBI*  *4)  +  Y1  *QDOT(I.J.K) 

ELSE  IF«K  EQ.P)  .AND.  ((I.GT.l )  .AND.  (I.LT.M)))  THEN 
D(K)  =  TSTAR2HJ.K)  +  L'3*(TSTAR2(I.J  +  l.K)  -  TSTAR2(1  J.K))  + 
&.  FO*(TSTAR  1(1-1. J.K )  +  TSTAR1(I  +  1.J.K)  -  2*TSTAR1(1.J.K)) 

&  +  V1*(TAMB1  -  TSTAR20.J.K))  + 

&  Y4*(TAMB4  -  TSTAR2< I. J.K))  +  \V1  +  W4  + 

&  X 1  *{TSTAR2(  I  .J.K  )**4  -  TA MB  1**4)  + 

&  X4*(TSTAR2(I.J,K)**4  -  TAMB4**4)  +  Yl*QDOT(I,J,K) 

ELSE  1F((K.EQ.1)  .AND.  (I.EQ.M))  THEN 
D(K)  =  TSTAR2(T.J,K)  +  L'3*(TSTAR2(I,J  +  l.K)  -  TSTAR2(1,J,K))  + 
&  U5*(TSTAR  1(1-1  J.K)  -  TSTAR1(1  J,K))  + 

&  V1*(TAMB1  -  TSTAR2(I,J,K))  +  V3*(TAMB3  -  TSTAR2(IJ,K)) 
&  +  Y5*(TAMB5  -  TSTAR2(IJ,K))  +  W1  +  W3  +  W5  + 

&  X 1  *(TSTAR2(  I  .J.K  )**4  -  TAM  B  1**4)  + 


167 


&  X3*(TSTAR2(I.J.K)**4  -  TAMB3**4)  + 

&  X5*(TSTAR2(I,J.K)**4  -  TAMB5**4)  +  VI*QDOT(U,K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  -AND.  (I.EQ.M))  THEN 
D(K)  =  TSTAR2(I.J.K)  +  U3*(TSTAR2(U+  1,K)  -  TSTAR2(I,J,K))  + 
&  U5*<TSTAR1(I-1J.K)  -  TSTAR1(I,J.K))  + 

&  V1*(TAMB1  -  TS  TAR2(I.J,K))  +  V5*(TAMB5  -  TSTAR2(I,J.K)) 
&  +  W1  +  W5  +  X1*(TSTAR2(I,J,K)**4  -  TAMB1**4)  + 

&  X5*(TSTAR2(U,K)**4  -  TAMB5**4)  +  Yl*QDOT(l,J,K) 

ELSE 

D(K)  =  TSTAR2(I.J.K)  +  U3*(TSTAR2(U  +  l.K)  -  TSTAR2(I.J.K))  + 
&  L 5*<TSTAR  1(1-1, J.K)  -  TSTAR1(1,J,K))  + 

&  VL-dAMBl  -  TSTAR2(I.J.K))  +  V4*(TAMB4  -  TSTAR2(I.J.K)) 
&  +  Y5*(TAMB5  -  TSTAR2(1.J.K))  +  W1  +  W4  +  W5  + 

&  X I  *(  TS TA R2(  I .J . K )* *4  -  TA MB  1**4)  + 

&.  X  4  *  ( T  $  T  A  R  2  ( I .  J .  K )  *  *  4  -  TAMB4**4)  + 

iS:  X5*(TSTAR2(M.K)**4  -  TAN1B5**4)  +  Yl*QDOT(U,K) 


END  IF 

RETURN- 

END 


SUBROUTINE  ZULU2 
SUBROUTINE  ZULU2 

DIMENSION  A(  30).  B(  30),  C{  30).  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSION  T(  30,  30,  30),  TSTAR1(  30,  30,  30) 
DIMENSION  TSTAR2(  30,  30,  30) 

REAL  TINIT.  TSTAR1,  TSTAR2.  T.  TEMP 
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REAL  CP.  Kl,  RHO.  R.  Rl.  R2.  TIME.  DELT 

REAL  LX.  LY,  LZ,  DELX.  DELY,  DELZ 

REAL  A.  B,  C,  D.  BETA.  GAMMA 

REAL  FLU  XI.  FLUX2.  FLUX3,  FLUX4.  FLLX5.  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI,  H2,  H3,  H4,  H5,  H6 

REAL  B101,  BI02,  B103,  BI04,  BIOS,  BI06 

REAL  SIG1.  SIG2,  SIG3,  SIG4,  SIG5,  SIG6 

REAL  L  I,  U2,  U3,  L4,  US 

REAL  VI,  V2.  V3,  V4,  VS.  V6 

REAL  Wl,  \V2,  W3.  \V4,  WS.  W6 

REAL  XI.  X2.  X3.  X4,  XS,  X6 

REAL  EPS1.  EPS2.  EPS3.  EPS4,  EPS5,  EPS6 

REAL  QDOT.  GEN.  Y1 

REAL  CTIME.  TIMEO.  TIME! 

REAL  SOLAR.  EARTH.  ALBCO,  RE,  DIST.  ALT.  FE,  FA.  MU 
REAL  SOLAR1.  SOLAR2.  SOLAR3.  SOLAR4,  SOLARS.  SOLAR6 
REAL  EARTH  1.  EARTFI2.  EARTH 3,  EARTH4,  EARTHS.  EARTH 6 
REAL  ALBEDI.  ALBED2.  ALBED3.  ALBED4.  ALBEDS.  ALBED6 
REAL  ABS1.  ABS2.  ABS3.  ABS4,  ABSS.  ABS6 
REAL  SAC1.  SAC2,  SAC3,  SAC4,  SACS,  SAC6 
REAL  SUN.  ECLIPS.  Ql.  Q2.  Q3,  PERIOD.  PI 
REAL  PI.  P2,  P3.  P4,  PS,  P6 


INTEGER  I.  J.  K.  M.  N.  P.  IF,  L,  IFP1.  LAST.  G,  Q 
INTEGER  COUNT,  FREQ.  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP,  Kl,  RHO.  R,  Rl,  R2.  TIME,  DELT 

COMMON  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

COMMON  I,  J,  K,  M,  N.  P.  IF,  L,  IFP1,  LAST 

COMMON  A,  B,  C,  D,  BETA,  GAMMA,  G,  Q 

COMMON  FLUX1,  FLUX2.  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMBI.  TAMB2,  TAMB3,  TAMB4,  TAMB5.  TAMB6 
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COMMON  HI.  H2.  H3.  H4.  H5.  H6 
COMMON  BIOl,  BI02,  B103,  B104.  BI05.  BI06 
COMMON  S1G1.  SIG2,  S1G3,  S1G4,  SIG5.  SIG6 
COMMON  l'],  U2,  U3.  U4.  U5 
COMMON  VI,  V2,  V3,  V4.  V5,  V6 
COMMON  Wl,  \V2,  \Y3,  \V4,  W5,  \Y6 
COMMON  XI,  X2,  X3.  X4.  X5.  X6 
COMMON  COUNT.  FREQ 
COMMON  EPS1.  EPS2,  EPS3,  EPS4.  EPS5,  EPS6 
COMMON  QDOT.  GEN,  Y1 
COMMON  TIMEO,  TIME1 

COMMON  SOLAR.  EARTH.  RE.  DIST,  ALT.  FE.  FA.  MU 
COMMON  SOLAR1.  SOLAR2.  SOLAR3.  SOLAR4.  SOLAR5.  SOLAR6 
COMMON  EARTH  1.  EARTH2.  EARTH3.  EARTH4.  EARTH 5.  EARTH 6 
COMMON  ALBED1.  ALBED2.  ALBED3.  ALBED4,  ALBED5.  ALBED6 
COMMON  ABS1.  ABS2.  ABS3.  ABS4.  ABS5,  ABS6 
COMMON  SAC!.  SAC2.  SAC3.  SAC4.  SAC5.  SAC6 
COMMON  SUN.  ECLIPS.  QI.  Q2.  Q3.  PERIOD.  PI 
COMMON  PI.  P2.  P3.  P4.  P5.  P 6 


IFuK.EQ.l)  .AND.  (I.EQ.l ))  THEN 

D(K)  =  TSTAR2( I ..! , K )  *  U1'(TSTAR2(1.J-1,K)  +  TSTAR2(1.J  +  i.K) - 
N  2*TSTAR2(  I.J.K  ))  ^  U5*<TSTAR1(I  +  1.J.K)  -  TSTAR1(I.J.K  n 
&  +  V3*(TAMB3  -  TSTAR2(I.J,K))  + 

N  V6*(TAMB6  -  TSTAR2(  I.J.K))  +  \V3  +  W6  + 

&  X3*(TSTAR2(I..!.K)**4  -  TA.MB3**4)  + 

&  X6*(TSTAR2(I.J,K  )**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  (I.EQ.l))  THEN 
D(K)  =  TSTAR2(I,J,K)  +  U1*(TSTAR2(I,J-1,K)  +  TSTAR2(I,J+  1,K)  - 
&  2*TSTAR2(I,J,K))  +  U5*(TSTAR1(1  +  1,J,K)  -  TSTAR1(1.J,K)) 

&  +  V6*(TAMB6  -  TSTAR2(I,J,K))  +  W6  + 

&  X6*(TSTAR2(I.J.K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J.K) 
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ELSE  1F((K.EQ.P)  .AND.  (I.EQ.l))  THEN 
D(K)  =  TSTAR2(  I.J.K)  +  L  1*(TSTAR2(I,J-1,K)  +  TSTAR2(I.J  +  1,K)  - 
&  2*TSTAR2(IJ.K))  +  L  5*(TSTAR1(I  +  1.J.K)  -  TSTARl(IJ.K)) 

&  +  V4*(TAMB4  -  TSTAR2(1.J.K ))  + 

&  V6*(TAMB6  -  TSTAR2(I,J,K))  +  W4  +  W6  + 

&  X4*(TSTAR2(I.J.K)**4  -  TAMB4**4)  + 

&  X6*(TSTAR2(I,J.K )**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  IF((K.EQ.l)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 
D(K)  =  TSTAR2(I,J,K)  +  U1*(TSTAR2(I,J-1,K)  +  TSTAR2(I,J  +  1,K)  - 
&  2*TSTAR2(I.J.K)>  +  FO*(TSTARl(I-l.J.K)  +  TSTAR1(I  +  1.J.K ) 
&  -  2*TSTAR1(I.J.K ))  +  Y3*iTAMB3  -  TSTAR2(I J,K))  + 

&  \Y3  +  X3*(TSTAR2UJ.K)**4 -TAMB3**4)  + 

&  YF-QDOT(IJ.K) 


ELSE  IF(OK.GT.l)  .AND.  (K.LT.P))  .AND.  ((I.GT.l)  .AND. 

&  (I.LT.M)))  THEN 

DiK)  =  TSTAR2U.J.K)  l  1  •(TSTAR2(I.J-1.K)  +  TSTAR2(I,J  +  I .K )  - 
&  2*TSTAR2(I  J.K ))  -  F0*(TSTAR1(M.J,K)  +  TSTAR1(I  +  1  J.K) 
&  -  2*TSTAR1(I  J.K))  -  Yl*QDOT(I  J.K) 

ELSE  IF((K.EQ.P)  .AND.  ((I.GT.l  )  AND.  (I.LT.M)))  THEN 
D(K)  =  TSTAR2(IJ.K)  -  U1*(TSTAR2(1  J-l.K)  +  TSTAR2(I,J  +  l.K)  - 
&  2*TSTAR2(IJ.K)>  ^  FO'(TSTARl(I-l.J.K)  +  TSTAR1(I  +  I.J.K ) 
&  -  2,:TSTAR1(I.J,K))  -  Y4*(TAMB4  -  TSTAR2(I J.K))  + 

&  W4  +  X4*(TSTAR2(1  .J.K )**4  -  TAMB4**4)  +  Yl*QDOT(I  J,K) 

ELSE  IF((K.EQ.1>  .AND.  (I.EQ.M))  THEN 
D(K)  =  TSTAR2(I,J,K)  +  L  1*(TSTAR2(IJ-1,K)  +  TSTAR2(I,J  +  l.K)  - 
&  2*TSTAR2(I.J,K))  +  U5*(TSTAR1(M  J,K)  -  TSTAR1(I  J,K)) 

&  +  V3*(TAMB3  -  TSTAR2(I.J,K))  + 

&  V5*(TAMB5  -  TSTAR2(I.J.K))  +  W3  +  W5  + 

&  X3*(TSTAR2(I.J.K)*M  -  TAMB3**4)  + 
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&  X5*{TSTAR2(I.J.K)**4  -  TAMB5**4)  +  Y1*QD0T(I.J.K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  (I.EQ.M))  THEN 
D(K)  =  TSTAR2(I.J.K)  +  U1*(TSTAR2(I,J-1,K)  +  TSTAR2(I.J  +  l.K)  - 
&  2*TSTAR2(I,J,K))  +  U5*(TSTAR1(M,J,K)  -  TSTAR1(U,K)) 

&  -r  Y5*(TAMB5  -  TSTAR2(U,K))  +  W5  + 

&  X5  *(TSTA  R2(  I  ,J  ,K  )* '  4  -  TAMB5**4)  +  Yl*QDOT(I,J,K) 

ELSE 

D(K)  =  TSTAR2( I.J.K)  +  U1*(TSTAR2(U-1,K)  +  TSTAR2(1,J  +  1,K)  - 
&  2*TSTAR2(IJ.K))  +  U5*(TSTAR1(I-1,J,K)  -  TSTARl(U.K)) 

&  +  V4*(TA.MB4  -  TSTAR2(I  J.K))  + 

&  Y5*{TAMB5  -  TSTAR2) I.J.K))  +  W4  +  VY5  + 

&  X4*(TSTAR2(I.J.K)**4  -  TAMB4**4)  + 

&  X5*(TSTA  R2i  I  .J.K  )'ss  4  -  TAM  B5**4)  +  V 1  *QDOT(  U.K) 

ENDIF 

RETURN 

END 


SUBROUTINE  ZULU3 

SUBROUTINE  ZULU 3 

DIMENSION  A(  30),  B(  30),  C(  30),  D(  30),  TEMP(  30) 
DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30,  30) 
DIMENSION  T(  30,  30,  30),  TSTAR1(  30,  30,  30) 
DIMENSION  TSTAR2(  30,  30,  30) 

REAL  UNIT,  TSTAR1,  TSTAR2,  T,  TEMP 
REAL  CP,  Kl.  RHO,  R.  Rl,  R2,  TIME,  DELT 
REAL  LX.  LY.  LZ,  DELX.  DELY,  DELZ 
REAL  A,  B.  C.  D.  BETA.  GAMMA 
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REAL  FLL'Xl.  FLLX2,  FLUX3.  FLUX4.  FLUX5,  FLLX6 

REAL  TAMB1.  TAMB2.  TAMB3.  TAMB4.  TAMB5,  TAMB6 

REAL  HI.  M2.  H3.  H4.  H 5.  H6 

REAL  BIOL  BI02.  B103.  BI04.  BIOS,  BI06 

REAL  SIG1,  SIG2,  SIG3,  SIG4.  S1G5,  SIG6 

REAL  L  I,  L 2.  L3,  L4,  L5 

REAL  VI,  V2,  Y3,  Y4.  Y5.  Y6 

REAL  \V1,  \Y2,  \V3,  \Y4,  W5,  \Y6 

REAL  XL  X2.  X3,  X4.  X5.  X6 

REAL  EPS1,  EPS2.  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  Y1 

REAL  CTIME.  TIMEO.  TIME  1 

REAL  SOLAR.  EARTH.  ALBCO.  RE.  DIST,  ALT,  FE,  FA,  ML 
REAL  SOLAR1.  SOLAR2.  SOLAR3.  SOLAR4.  SOLARS.  SOLAR6 
REAL  EARTH  1.  EARTH2.  EARTH 3,  EARTI 14.  EARTHS.  EARTH6 
REAL  ALBEDl.  ALBED2.  ALBED3.  ALBED4,  ALBEDS,  ALBED6 
REAL  ABS1.  ABS2.  ABS3.  ABS4.  ABSS.  ABS6 
REAL  SAC1.  SAC 2.  SAC3.  SAC4.  SACS.  SAC6 
REAL  SLN.  EC  LI  PS.  Ql.  Q2.  03.  PERIOD.  PI 
REAL  PL  P2.  P3.  P4.  PS.  P6 


INTEGER  I.  .1.  K.  M.  N.  P.  IT.  L.  IFP1,  LAST.  G,  Q 
INTEGER  COL  NT.  FREQ.  ANSI,  ANS2.  ANS3.  YAL,  NOLT 

COMMON  TIN  IT.  TSTAR1.  TSTAR2.  T.  TEMP 

COMMON  CP,  Kl.  RHO.  R,  RI.  R2.  TIME,  DELT 

COMMON  LX,  LY.  LZ,  DELX,  DELY,  DELZ 

COMMON  I,  J,  K,  M.  N.  P.  IF,  L,  IFP1,  LAST 

COMMON  A,  B.  C,  D.  BETA.  GAMMA,  G,  Q 

COMMON  FLLX1,  FLLX2,  FLLX3,  FLLX4,  FLLX5,  FLLX6 

COMMON  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

COMMON  HI,  H2,  H3,  H4,  H5,  H6 

COMMON  BIOL  BI02.  BI03.  BI04.  BI05,  BI06 

COMMON  SIG1.  SIG2,  S1G3.  SIG4,  S1GS,  SIG6 
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COMMON  L  I.  L2,  L'3,  L4,  U5 
COMMON  VI.  V2,  Y3,  V4.  V5,  V6 
COMMON  \V1.  \Y2.  \Y3,  W4,  W5,  \V6 
COMMON  XI.  X2,  X3.  X4.  X5.  X6 
COMMON  COUNT,  FREQ 
COMMON  EPS1,  EPS2.  EPS3,  EPS4,  EPS5,  EPS6 
COMMON  QDOT,  GEN,  Yl 
COMMON  TIMEO,  TIME1 

COMMON  SOLAR.  EARTH,  RE,  DIST,  ALT,  FE,  FA,  ML 
COMMON  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLARS,  SOLAR6 
COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH 6 
COMMON  ALBEDI.  ALBED2.  ALBED3,  ALBED4,  ALBED5.  ALBED6 
COMMON  ABS1,  ABS2.  ABS3,  ABS4,  ABS5,  ABS6 
COMMON  SACK  SAC2.  SAC 3.  SAC4,  SACS,  SAC6 
COMMON  SUN.  ECLIPS,  Ql.  Q2.  Q3,  PERIOD.  PI 
COMMON  PI.  P2,  P3,  P4.  PS.  P6 


IF((K.EQ.l)  .AND.  (I.EQ.l))  THEN 
D(K)  =  TSTAR2(  I.J.K !  +  L3*(TSTAR2(1  J-l.K)  -  TSTAR2(I.J.K)>  + 
&  L5*(TSTAR1(I  +  l.J,K)  -  TSTARl(IJ.K))  + 

&  V2'  (TAMB2  -  TSTAR2(I.J.K))  +  V3':(TAMB3  -  TSTAR2(I.J.K H 

&  -r  V6:(TAMB6  -  TSTAR2(I.J,K))  +  W2  +  \V3  +  W6  + 

&  X  2  *(  T  S  T  A  R2(  I  .J .  K  )*  *4  -  IAMB 2* *4)  + 

&  X3*(TSTAR2(1J.K)**4  -  TAMB3**4)  + 

&  X6*(TSTAR2(IJ.K)**4  -  TAMB6**4)  +  Yl*QDOT( I.J.K) 

ELSE  IF(((K.GT.l)  .AND.  (K.LT.P))  .AND.  (I.EQ.l))  THEN 
D(K)  =  TSTAR2(I,J,K)  +  L'3*(TSTAR2(U-1,K)  -  TSTAR2(U,K))  + 
&  L5*(TSTAR1(I  +  1,J,K)  -  TSTAR1{I,J,K))  + 

&  V2*(TAMB2  -  TSTAR2(I,J,K))  +  V6*(TAMB6  -  TSTAR2(U,K)) 
&  +  W2  +  W6  +  X2*(TSTAR2(I,J,K)**4  -  TAMB2**4)  + 

&  X6*(TSTAR2(I,J,K)**4  -  TAMB6**4)  +  Yl*QDOT(I,J,K) 

ELSE  1F((K.EQ.P)  .AND.  (I.EQ.l))  THEN 
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D(K)  =  TSTAR2(IJ.K)  +  L3*(TSTAR2(I.J-1.K)  -  TSTAR2(I,J.K))  + 
&  L'5*(TSTAR1(1  +  1J.K)  -  TSTARl(LJ.K))  + 

&  Y2*(TAMB2  -  TSTAR2(I,J,K))  +  Y4*(TAMB4  -  TSTAR2(IJ,K)) 
&  +  V6*(TAMB6  -  TSTAR2(I.J.K))  +  NY2  +  NY4  +  VV6  + 

&  X2*(TSTAR2(I,J,K)**4  -  TAMB2**4)  + 

&  X4*(TSTAR2(U,K)**4  -  TAMB4**4)  + 

&  X6*(TSTAR2(ItJ.K)**4  -  TAMB6**4)  +  Y1*QD0T(I,J,K) 

ELSE  IF((K.EQ.l)  .AND.  ((I.GT.l)  .AND.  (I.LT.M)))  THEN 
D(K)  =  TSTAR-OJ.K)  +  U3*(TSTAR2(IJ-1,K)  -  TSTAR2(I,J.K))  + 
&  F0:'(TSTAR1(I  +  1.J.K)  +  TSTAR1(I-1,J,K)  -  2*TSTAR1(U,K)) 
&  +  Y2!'(TAMB2  -  TSTAR2(I,J,K))  + 

&  Y3*(TAMB3  -  TSTAR2(I J.K))  +  NY 2  +  NY 3  + 

&  X2*(TSTAR2iIJ.K)**4  -  TAMB2**4)  + 

i!c  X3*(TSTAR2(  I  J.K  )**4  -  TAM 83**4)  +  Y1*QD0T(U.K) 

ELSE  IF((CK.GT.l)  .AND.  (K.LT.P))  .AND.  ((I.GT.l)  .AND. 

&  (I.LT.M)))  THEN 

D(K)  =  TSTAR2(I .J.K)  +  U3*(TSTAR2(I.J*1.K )  -  TSTAR2(I.J,K))  + 
&  F0*(TSTAR1(I  +  1.J.K)  +  TSTARl(I-lJ.K)  -  2*TSTAR1(I.J,K)) 
&  +  Y2*(TAMB2  -  TSTAR2(1.J.K))  +  NY 2  + 

&  X2*(TSTAR2(LJ.K)*  *4  -  TAMB2**4)  +  Yl*QDOT(I.J.K) 


ELSE  I F((  K.EQ.P)  .AND.  ((I.GT.l )  .AND.  (I.LT.M)))  THEN 
D(K )  =  TSTAR2(I.J.K)  +  L  3*(TSTAR2(I.J-1,K)  -  TSTAR2(I.JtK))  + 
&.  FO*(TSTARl(I  -  1.J.K)  +  TSTARI(I-1.J,K)  -  2*TSTAR1(I,J,K)) 
&  +  V2*(TAMB2  -  TSTAR2(1.J,K))  + 

&  V4*(TAMB4  -  TSTAR2(I,J,K))  +  NV2  4-  NV4  + 

&  X2*(TSTAR2(I.J.K)**4  -  TAMB2**4)  + 

&  X4*(TSTAR2(U,K)**4  -  TAMB4**4)  +  Y1*QD0T(I,J,K) 

ELSE  IF((K.EQ.l)  .AND.  (I.EQ.M))  THEN 
D(K)  =  TSTAR2(1.J.K)  +  U3*(TSTAR2(U-1,K)  -  TSTAR2(U.K))  + 
<ic  L'5*(TSTARI(I-1J,K)  -  TSTARI(I.J.K))  + 
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&  V2*(TAMB2  -  TSTAR2(I.J,K))  +  V3*(TAMB3  -  TSTAR2(I.J,K)1 
&  +  V5*(TAMB5  -  TSTAR2(IJ,K))  +  W2  +  W3  +  W5  + 

&  X2,:(TSTAR2(1.J.K -  TAMB2**4)  + 

&  X 3 *( TSTA R2( U.K)* *4  -  TA M B3**4)  + 

&  X5*(TSTAR2(I.J.K)**4  -  TAMB5**4)  +  Y1  *QDOT(I,JfK) 

ELSE  IF(((K.GT1)  .AND.  (K.LT.P))  .AND.  (I.EQ.M))  THEN 
D(K)  =  TSTAR2(I.J.K)  +  L 3*(TSTAR2(I,J-1,K)  -  TSTAR2(I,J,K))  + 
&  L'5*(TSTAR1(1-1  J,K)  -  TSTAR1(U,K))  + 

&  V2*(TAMB2  -  TSTAR2(U,K))  +  V5*(TAMB5  -  TSTAR2(I,J,K)j 
&  +  \V2  +  W5  +  X2*<TSTAR2(I,J.K)**4  -  TAMB2**4)  + 

&  X5*(TSTAR2(EJ.K)**4  -  TAMB5**4)  +  Yl*QDOT(I.J.K) 


ELSE 

D(K)  =  TSTAR2(1.J.K)  +  U3*(TSTAR2(I J-l.K)  -  TSTAR2(l.J.K)i  + 
&  U5*(TSTAR1(I-1.J.K)  -  TSTARl(U.K))  + 

Y2*(TAMB2  -  TSTAR2(IJ.K»  ^  Y4*(TAMB4  -  TSTAR2(U.K)( 
N  -  Y5:MAMB5  -  TSTA R2(l. J.K))  +  W2  +  \V4  +  \V5  + 

&.  X2':,iTSTAR2(l.J,K)-'M  -  TAMB2**4)  ^ 

&  X4*(  T STA R2( I J.  K  )* *4  -  TAMB4**4)  Hr 

&.  X5*(TSTAR2(U.K>**4  -  TAM  85**4)  +  Yl*QDOT(I,J,K) 

END  IF 

RETURN- 

END 


#  ##*#***##4!#***  *•*  ***#  ««****#*  *  ««£*****  .***£  *  *.***************:!=  S:***  i!!*  *  * 


SUBROUTINE  TRIDAG  IS  A  SUBROUTINE  FOR  SOLVING  A  SYSTEM 
OF  LINEAR  SIMULTANEOUS  EQUATIONS  HAVING  A  TRIDIAGONAL 
COEFFICIENT  MATRIX.  THE  EQUATIONS  ARE  NUMBERED  IF  THROUGH 
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L,  AND  THEIR  SUBDIAGONAL,  DIAGONAL,  AND  SUPER  DIAGONAL 
COEFFICIENTS  ARE  STORED  IN  THE  ARRAYS  A,  B.  AND  C.  THE 
COMPUTED  SOLUTION  VECTOR  TEMP(IF)...TEMP(L)  IS  STORED 
IN  THE  ARRAY  TEMP. 

SUBROUTINE  TRIDAG 

DIMENSION  A(  30).  B(  30),  C(  30),  D(  30),  TEMP(  30) 

DIMENSION  BETA(  30).  GAMMA(  30),  QDOT(  30,  30,  30) 

DIMENSION  T(  30.  30,  30),  TSTAR1(  30,  30,  30) 

DIMENSION  TSTAR2(  30.  30.  30) 

REAL  TINTT.  TSTAR1.  TSTAR2,  T.  TEMP 

REAL  CP,  Kl.  RIIO.  R.  Rl.  R2.  TIME.  DELT 

REAL  LX,  LY.  LZ,  DELX.  DELY.  DELZ 

REAL  A.  B.  C,  D.  BETA.  GAMMA 

REAL  FLUX1.  FLUX2.  FLUX?.  FLUX4.  FLUX5,  FLUX6 

REAL  TAMB1.  TAMB2.  TAMB3.  TAMB4.  TAN1B5,  TAMB6 

REAL  HI.  H2.  113,  H4.  115.  116 

REAL  BIOL  BI02,  BI03.  BI04.  BI05.  BI06 

REAL  S I G 1 .  SIG2.  SIG3.  SIG4.  SIG5.  SIG6 

REAL  Ul.  U2.  U3.  14.  U5 

REAL  VI.  V2.  V3.  V4.  V5.  V6 

REAL  Wl.  W2.  W5.  \V4.  \V5.  \V6 

REAL  XL  X2.  X3.  X4.  X5.  X6 

REAL  EPS1.  EPS2.  EPS3.  EPS4.  EPS5,  EPS6 

REAL  QDOT.  GEN.  YI 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 
REAL  SOLAR  1.  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
REAL  EARTH1,  EARTH2,  EARTH3,  EARTH4,  EARTH5,  EARTH6 
REAL  ALBED1.  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
REAL  ABS1,  ABS2.  ABS3,  ABS4,  ABS5,  ABS6 
REAL  SAC1,  SAC 2.  SAC3,  SAC4,  SAC5,  SAC6 
REAL  SUN.  ECLIPS,  QI,  Q2.  Q3.  PERIOD.  PI 


REAL  PI.  P2,  P3.  P4,  P5.  P6 


INTEGER  I.  J.  K,  M,  N.  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ.  ANSI,  ANS2,  ANS3,  VAL,  NOL'T 

COMMON  TINTT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP,  Kl,  RHO,  R.  Rl,  R2,  TIME,  DELT 

COMMON  LX,  LY,  LZ.  DELX,  DELY,  DELZ 

COMMON  I,  J,  K,  M,  N.  P,  IF,  L,  IFP1,  LAST 

COMMON  A,  B,  C,  D.  BETA,  GAMMA,  G,  Q 

COMMON  FLU XI,  FLUX2,  FLUX3,  FLUX4,  FLUX5,  FLUX6 

COMMON  TAMB1.  TAMB2,  TAMB3.  TAMB4.  TAMB5,  TAMB6 

COMMON  HI,  H2.  H3.  H4,  H5.  FI6 

COMMON  BIOl.  BI02.  B103,  B104,  BIOS,  BI06 

COMMON  SIG1.  SIG2,  SIG3.  SIG4.  SIG5.  S1G6 

COMMON  Ul.  L 2.  L'3.  U4.  US 

COMMON  VI,  Y2.  Y3.  Y4.  Y5.  Y6 

COMMON  \Y1,  W2.  W  3.  \Y4.  \\  5,  \Y6 

COMMON  XL  X2,  X3.  X4.  XS.  X6 

COMMON  COUNT.  FREQ 

COMMON  EPS1.  EPS2.  EPS3,  EPS4,  EPS5,  EPS6 

COMMON  QDOT,  GEN.  Yl 

COMMON  TIMEO.  TIME1 

COMMON  SOLAR.  EARTH.  RE,  DIST.  ALT.  FE,  FA.  ML 
COMMON  SOLAR  1.  SOLAR2.  SOLAR3.  SOLAR4.  SOLARS,  SOLAR6 
COMMON  EARTH  1,  EARTH2,  EARTH3,  EARTH4,  EARTHS,  EARTH6 
COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  ABS2,  ABS3,  ABS4,  ABS5,  ABS6 
COMMON  SAC1,  3AC2,  SAC3,  SAC4,  SAC5.  SAC6 
COMMON  SUN,  ECLIPS,  Ql,  Q2,  Q3,  PERIOD,  PI 
COMMON  PL  P2,  P3,  P4,  PS,  P6 


*  COMPUTE  INTERMEDIATE  ARRAYS  BETA  AND  GAMMA 
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BETA(IF)  =  B(1F) 

GAMMA(IF)  =  D(IF)  BETA(IF) 

IFP1  =  IF  +  1 
DO  400  Q=  1FPI,  L 

BETA(Q)  =  B(Q)- A(Q)*C(Q-1)  BETA(Q-l) 

GAMMA(Q)  =  (  D(Q)  -  A(Q)*GAMMA(Q-1) )  BETA(Q) 

400  CONTINUE 
❖ 

* 

*  COMPETE  FINAL  SOLUTION  VECTOR  TEMP 

jf! 

TEMP(L)  =  GAMMA(L) 

LAST  =  L  -  IF 
DO  410  G  =  L  LAST 
Q  =  L  -  G 

TEMP(Q)  =  GAM  MAC  Q)  -  C(Q)*TEMP(Q+  1)  BETA(Q) 
410  CONTINIE 
RETURN 
END 


#  *  *  *  *  <•  *  *  <■  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ********  ********** #  *  *  *  *  *  *  *  *  *  *  * 
t.%  u  *  S  Si  S: *  *  *  *  *  *  *  *  ft  -V  *  ft  si".  *  ft  *  *  *  *  *  ft  *  ft  ft  *  ft  ft  *  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  *  ft  ft  ft  *  ft  ft  ft  ft  ft  *  ft  ft  ft  :*  ft  *  *  ft  ft  ft  * ft  ft  * 
ft 

THIS  SUBROUTINE  WILL  BE  USED  FOR  PRINTING  THE  NODE 

*  TEMPERATURES 

* 

SUBROUTINE  OUTPUT 

DIMENSION  A(  30),  B(  30),  C(  30),  D(  30),  TEMP(  30) 

DIMENSION  BETA(  30),  GAMMA(  30),  QDOT(  30,  30,  30) 

DIMENSION  T(  30.  30,  30),  TSTAR1(  30,  30,  30) 

DIMENSION  TSTAR2(  30.  30,  30) 

* 

REAL  TINTT.  TSTARI.  TSTAR2,  T.  TEMP 


REAL  CP,  Kl.  RHO.  R.  Ri.  R2.  TIME.  DELT 

REAL  LX,  LY.  LZ,  DELX.  DELY,  DELZ 

REAL  A.  B.  C.  D.  BETA.  GAM  MA 

REAL  FLLX1.  FLUX2.  FLUX3,  T'?  *''4,  FLUX5,  FLUX6 

REAL  TAMB1,  TAMB2,  TAMB3,  TAMB4,  TAMB5,  TAMB6 

REAL  HI.  H2,  H3,  H4,  H5,  H6 

REAL  BIOl,  BI02,  B103,  B104,  BI05,  BI06 

REAL  SIG1,  SIG2.  S1G3,  SIG4,  SIG5,  SIG6 

REAL  LT,  U2,  L3,  L4.  L5 

REAL  VI,  V2,  V3,  V4.  V5,  V6 

REAL  WI,  W2.  W3,  W4,  YV5,  W6 

RFAL  X!.  X2.  X3.  X4,  X.\  X6 

REAL  EPS1,  EPS2.  EPS3,  EPS4.  EPS5.  EPS6 

REAL  QDOT.  GEN,  Y1 

REAL  CTIME.  TIMEO.  TIME1 

REAL  SOLAR,  EARTH.  ALBCO,  RE,  DIST,  ALT,  FE,  FA.  ML' 
REAL  SOLAR1 .  SOLAR2.  SOLAR3.  SOLAR4,  SOLAR5,  SOLAR6 
REAL  EARTH  1.  EARTH 2,  EARTH3.  EARTH4,  EARTH5.  EARTH6 
REAL  ALBEDI.  ALBED2.  ALBED3.  ALBED4,  ALBED5,  ALBED6 
REAL  ABS1,  ABS2,  ABS3.  ABS4,  ABS5.  ABS6 
REAL  SACK  SAC 2,  SAC3.  SAC4,  SAC5,  SAC6 
REAL  SEN.  ECLIPS.  Ql.  Q2,  Q3.  PERIOD,  PI 
REAL  PI.  P2.  P3.  P4.  P5.  P6 

INTEGER  I.  J.  K.  M.  N.  P.  IF,  L,  IFP1,  LAST,  G.  Q 
INTEGER  COUNT,  FREQ.  ANSI,  ANS2,  ANS3,  VAL,  NOUT 

COMMON  TINIT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP,  KI,  RHO,  R,  Rl,  R2,  TIME,  DELT 

COMMON  LX,  LY,  LZ,  DELX,  DELY,  DELZ 

COMMON  I,  J,  K,  M,  N,  P,  IF,  L,  IFP1,  LAST 

COMMON  A,  B,  C,  D.  BETA,  GAMMA,  G,  Q 

COMMON  FLUX1,  FLUX2,  FLUX3,  FLUX4.  FLUX5,  FLUX6 

COMMON  TAMB1,  TAMB2.  TAMB3,  TAMB4.  TAMB5,  TAMB6 
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COMMON  HI,  H2.  H3.  H4.  H5.  H6 
COMMON  BIOl.  BI02,  BI03,  BI04,  BI05,  BI06 
COMMON  SIG1,  SIG2,  SIG3.  SIG4,  SIG5,  SIG6 
COMMON  L  I,  L2.  U3,  L4.  U5 
COMMON  VI,  V2,  V3,  V4,  V5,  V6 
COMMON  Wl,  W2,  W3,  W4,  \V5,  W6 
COMMON  XI,  X2,  X3,  X4,  X5,  X6 
COMMON  COUNT.  FREQ.  ANSI,  ANS2,  AN  S3 
COMMON  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 
COMMON  QDOT,  GEN,  VI 
COMMON  TIMEO,  TIME1 

COMMON  SOLAR.  EARTH,  RE.  D1ST.  ALT,  FE,  FA,  MU 
COMMON  SOLAR  1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
COMMON  EARTH  1.  EARTH 2,  EARTH 3,  EARTH4,  EARTHS,  EARTH 6 
COMMON  ALBED1.  ALBED2,  ALBED3,  ALBED4.  ALBED5,  ALBED6 
COM  MON  ABS1.  ABS2.  ABS3.  ABS4.  ABS5,  ABS6 
COMMON  SAC1.  SAC2.  SAC3.  SAC4,  SACS,  SAC6 
COMMON  SUN.  ECL1PS,  Ql.  Q2.  Q3.  PERIOD,  PI 
COMMON  PI.  P2.  P3.  P4.  PS.  P6 

* 

*  THE  USER  CAN  PRINT  OUT  THE  TEMPERATURES  AT  SELECTED 

*  NODES.  IF  OTHER  NODES  ARE  DESIRED.  THEN  THE  USER  MAY 

*  CHANGE  THE  WRITE'  AND  PRINT'  STATEMENTS  TO  THE 

*  DESIRED  NODES. 

IF(TIME  ,NE.  DELT)  GO  TO  500 

* 

PRINT* 

\VRITE(1,*)'  TIME(SEC)  (6,1,11)  (6,6,)  (1,6,6)' 

\VRITE(1,*)'  . ' 

* 

500  WRITE  (1,501)  TIME,  T(  6,  1.  11),  T(  6,  6,  6),  T(  1,  6,  6) 

501  FORMAT(1X.FS.O,4X,FS.3,4X,F8.3,4X,F8.3) 
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*  THE  USER  CAN  ALSO  HAVE  ALL  NODE  TEMPERATURES  PRINTED 

*  OUT.  IF  A  PRINTOUT  OF  ALL  PLANES  AND  OR  ALL  NODES  IS 

*  NOT  REQUIRED,  THEN  THE  DO  LOOPS  MAY  BE  CHANGED  TO 

*  ACCOMODATE  THE  USER'S  NEEDS. 

* 

WRITE(6,*)  DO  YOU  WANT  K-PLANE  PRINTOUT?  (FOR  YES,  ENTER' 
WRITE(6,*)  'ANSI  AS  1;  FOR  NO  ENTER  ANSI  AS  0.)' 

READ(6,*)  ANSI 
I  F( AN'S  I  .NE.  I)  GO  TO  699 


\VRITE(2.600)  'TIME(SEC)  -'.TIME 
600  FORMAT!  A 12, FI  2. 3) 

DO  605  K=  l.P 


WRITE(2,*)  'TEMPERATURE  DISTRIBUTION  ON  PLANE  :' 
WRITE(2.610)  'K  =  ,K 


WRITE(2.*)  '*** 


^  f,‘  ?I:  £  *i  #  #  .■(:  •?;.  1;.  ’ 


610  FORMAT(  1X.A3.I2) 

WRITE(2.620)  ((T(I.J.K),  J=  1,N).  I  =  l.M) 

620  FORMAT(  1X.F6.UX.F6.1.1X.F6.1, IX, F6.UX,F6.UX.F6.1, IX, F6.1, 


&  1X.F6.1.1X.F6.1.1X.F6. 1.1X.F6.1) 

<*. 


605  CONTINUE 


699  WRITE(6,*)  DO  YOU  WANT  J-PLANE  PRINTOUT?  (FOR  YES,  ENTER' 
WRITE! 6,*)  ANS2  AS  1;  FOR  NO  ENTER  ANS2  AS  0.)’ 

READ(6,*)  ANS2 
IF(ANS2  .NE.  1)  GO  TO  799 

WRITE(3,700)  'TIME(SEC)  =',TIME 

700  FORM AT( A 12. FI 2. 3) 
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DO  705  J=1.N 


jjs 


WRITEI3  *>  TEMPERATURE  DISTRIBUTION  ON  PLANE 
WRITE(3.710)  J  =  '.J 

WRITE(3  *)  '********************************♦**' 

710  FORMAT! IX, A3, 12) 

WRITE(3,720)  ((T(1.J,K),  I  =  1,M),  K-P.1,-1) 


720  FORMAT(lX,F6.1,lX.F6.1,lX.F6. l,lX,F6.1,lX,F6.1,lXtF6.1.1X,F6.1, 
&  IX,F6.I,1X,F6.I,IX,F6.I,1X,F6.I ) 


705  CONTINUE 


799  WRITE(6  *)  DO  YOU  WANT  I-PLANE  PRINTOUT?  (FOR  YES.  ENTER’ 
WRITE(6.*)  AN  S3  AS  I:  FOR  NO  ENTER  ANS3  AS  0.)' 

READ(6.*)  ANS3 
IF(ANS3  .NE.  1)  GO  TO  S99 

WRITE(4,800)  TIME(SEC)  =  ’.TIME 
S00  FORMAT(A12.F12.3) 

jt 

DO  S05  I  =  l.M 


WRITE(4,*)  TEMPERATURE  DISTRIBUTION  ON  PLANE 
WRITE!  4.S  10)  T  =  '.I 


WRITE(4.*) 


j.  . r:  A  A  A  A  A  A  A  v>  A  A  A  A  A  A  A  jb  jf.  A  A  A  A  ' 


810  FORMAT! IX, A3, 12) 

WRITE(4,820)  ((T(I,J,K),  J«1,N),  K  =  P,1,-1) 

820  F0RMAT(1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1, 
&  IX,F6. 1,1X,F6.1,1X,F6. 1,1X,F6.1) 


805  CONTINUE 


*  REINITIALIZING  THE  COUNTER  TO  ZERO 
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S99  COUNT  =  0 

RETURN 

END 


* 

*  *  *  $  &  $  6  *  *  *  *  *  <5  $*****$*£  4*  ^*^*****************$***t$*£4t*******4**$***4l**« 

*  A  £  *  #  jjt  <5  *  *  *  *  *  *  *  &  *  *  *  £  *  *  # :  sjs  $ :  :Jt  *  * t  Jj! ;  *  *  t-  *  *  *  *  *  *  *  *  <:  *  *  4c  *  jft  &  *  $  Jjc  *  $  «  j*t  #  jjc «  *  #  *  £  ajt  £  <t  *  t  ❖  *  *  *  ❖ 


SUBROUTINE  VALID 

DIMENSION  A(  30).  B(  30).  C(  30),  D(  30),  TEMP(  30) 

DIMENSION  BETA(  ?'  ),  GAMMA(  30),  QDOT(30,  30,  30) 
DIMENSION  T(  30.  30.  30).  TSTAR1(  30.  30.  30) 

DIMENSION  TSTAR2I  30,  30.  30) 

REAL  TINTT.  TSTAR1.  TSTAR2,  T,  TEMP 

REAL  CP,  Kl.  RHO,  R.  Rl.  R2.  TIME,  DELT 

REAL  LX.  LY,  LZ.  DELX.  DELY.  DELZ 

REAL  A.  B.  C,  D.  BETA.  GAMMA 

REAL  FLUX  I.  FL 1X2.  FLLX3.  FLUX-5,  FLLX5,  F LUX6 

REAL  TAMB1.  TAMB2,  TAMB3.  TAMB4,  TAMB5.  TAMB6 

REAL  HI,  H2.  H3.  H4.  H5.  116 

REAL  B101.  BI02,  BI03.  BI04.  BIOS,  BI06 

REAL  SI G 1 ,  SIG2.  SIG3.  SIG4.  SIG5.  SIG6 

REAL  Ul,  U2.  U3.  U4,  U5 

REAL  VI.  V2.  V3,  V4.  V5.  V6 

REAL  Wl,  \V2,  W3,  \V4.  W5,  \V6 

REAL  XI,  X2,  X3,  X4,  X5,  X6 

REAL  EPS1,  EPS2,  EPS3,  EPS4,  EPS5,  EPS6 

REAL  QDOT,  GEN,  YI 

REAL  CTIME,  TIMEO,  TIME1 

REAL  SOLAR,  EARTH,  ALBCO,  RE,  DIST,  ALT,  FE,  FA,  MU 
REAL  SOLAR1,  SOLAR2,  SOLAR3,  SOLAR4,  SOLAR5,  SOLAR6 
REAL  EARTH  1,  EARTII2.  EARTH 3,  EARTH4,  EARTHS.  EARTH 6 
REAL  ALBED1,  ALBED2,  ALBED3.  ALBED4.  ALBEDS,  ALBED6 
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REAL  ABS1.  ABS2.  ABS3,  ABS4,  ABS5.  ABS6 
REAL  SAC1,  SAC2.  SAC3.  SAC4,  SACS,  SAC6 
REAL  SUN.  ECLIPS,  QL  Q2,  Q3.  PERIOD,  PI 
REAL  PI,  P2.  P3.  P4.  P5.  P6 

INTEGER  I,  J,  K,  M,  N,  P,  IF,  L,  IFP1,  LAST,  G,  Q 
INTEGER  COUNT,  FREQ,  ANSI,  ANS2,  ANS3,  VAL,  NOL'T 

COMMON  TINIT,  TSTAR1,  TSTAR2,  T,  TEMP 

COMMON  CP,  Kl,  RHO,  R,  Rl,  R2,  TIME,  DELT 

COMMON  LX,  LY,  LZ.  DELX,  DELY,  DELZ 

COMMON  I.  J,  K.  M.  N.  P.  IF.  L,  IFP1.  LAST 

COMMON  A.  B.  C.  D.  BETA,  GAMMA.  G,  Q 

COMMON  FLUX  I.  FLUX2,  FLUX3.  FLUX4,  FLUXS,  FLUX6 

COMMON  TAMB1,  TAMB2,  TAMB3.  TAMB4.  TAMB5,  TAMB6 

COMMON  HI.  1 12.  H3.  H4.  H5.  H6 

COMMON  BIOl.  BI02.  BI03.  BI04.  BIOS.  BI06 

COMMON  S1G1.  SIG2.  SIG3,  SIG4.  S1G5.  S1G6 

COMMON  L  I.  U2.  U3.  U4.  US 

COMMON  VI.  Y2.  Y3.  Y4.  V5.  YC 

COMMON  \VI.  W2,  \Y3.  \Y4.  \Y5.  \Y6 

COMMON  XI.  X2.  X3.  X4.  XS.  X6 

COMMON  COUNT.  FREQ.  ANSI.  ANS2.  ANS3.  VAL,  NOL'T 
COMMON  EPS1.  EPS2.  EPS3.  EPS4.  EPS5.  EPS6 
COMMON  QDOT.  GEN.  Yl 
COMMON  TIMEO,  TIME1 

COMMON  SOLAR.  EARTH,  RE,  DIST,  ALT,  FE,  FA,  MU 
COMMON  SOLAR1,  SOLAR2.  SOLAR3,  SOLAR4,  SOLARS,  SOLAR6 
COMMON  EARTH  1,  EARTH 2,  EARTH3,  EARTH4,  EARTH5,  EARTH 6 
COMMON  ALBED1,  ALBED2,  ALBED3,  ALBED4,  ALBED5,  ALBED6 
COMMON  ABS1,  ABS2.  ABS3,  ABS4,  ABS5,  ABS6 
COMMON  SAC1.  SAC2.  SAC3.  SAC4,  SAC5,  SAC6 
COMMON  SUN,  ECLIPS.  QL  Q2.  Q3.  PERIOD,  PI 
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COMMON  PI,  P2.  P3,  P4,  P5.  P6 


*  VARIOUS  NODES  WERE  SELECTED  TO  SAMPLE  TEMPERATURE 

*  DIFFERENCES.  THE  USER  CAN  CHANGE  THE  SELECTED  NODES 

*  IF  DESIRED.  IF  THE  USER  CHANGES  THE  SELECTED  NODES. 

*  THE  NODES  SELECTED  IN  PROGRAM  EXPLICIT  AND  DISTANCES 

*  CHOSEN  IN  PROGRAM  VALID  SHOULD  BE  ADJUSTED  ACCORDINGLY. 

* 

TDIFB1  =  T(  1.  6,  6)  -  TINTT 
TDIFB2  =  T(  6.  6,11)  -  TINTT 
TD1FB3  =  T(  6.  1,  6)  -  TINTT 

IFTTIME  .NE.  DELT)  GO  TO  920 

PRINT* 

WRITE{ 5.*)  'TIME(SEC)  TDIFB1  TDIFB2  TDIFB3 
WRITE(5.*)  ’ . ’ 

920  WRITE  (5.930)  TIME.  TDIFB1.  TDIFB2.  TDIFB3 
930  FORMAT)  IX. FS.0.3X.F7.3.3X.F7.3.3X.F7.3) 

*  REINITIALIZING  THE  COUNTER  TO  ZERO 

*!• 

COUNT  =  0 


RETURN- 

END 


******  ***************************************************************** 

***************. *******#******#*#***#**#*##*******  **********  ************ 
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APPENDIX  E 


PROGRAM  VALID 


PROGRAM  VALID 

•  ****««*4*6$«**e<:******!!;**********»********************«********»£  ****** 
***********  *********  *************************************************** 


*  VALIDATION  PROGRAM 

* 

*  THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  VALIDATE  THE 

*  TEMPERATURES  OBTAINED  BY  THE  EXPLICIT  AND  BRIAN 

*  PROGRAMS.  CONDITIONS  USED  IN  THE  VALIDATION  PROCESS 

*  ARE  A  CONSTANT  SURFACE  HEAT  FLUX  ON  THE  LEFT  FACE 

*  AND  ADIABATIC  CONDITIONS  ON  ALL  OTHER  SURFACES. 


*  THIS  PROGRAM  PROVIDES  THE  CLOSED-FORM  SOLUTION  OF 

*  TRANSIENT  HEAT  CONDUCTION  IN  A  SEMI-INFINITE  SOLID. 

*  THE  CLOSED-FORM  SOLUTION  FOR  CONSTANT  SURFACE  HEAT 

*  TLUX  IS  FROM  INTRODUCTION  TO  HEAT  TRANSFER"  BY 

*  INCROPERA  AND  DEWITT.  THE  RATIONAL  APPROXIMATION  FOR 

*  THE  ERROR  FUNCTION  IN  THE  CLOSED-FORM  SOLUTION  IS  FROM 

*  "HANDBOOK  OF  MATHEMATICAL  FUNCTIONS"  EDITED  BY 

*  ABRAMOWITZ  AND  STEGUN. 


t********************************************************************** 
«?•«••** «***a»**»*******»**«************»6*******«*********S*********** 

REAL  A  I,  A2,  A3,  A4,  A5,  B,  C,  D,  P,  VI,  V,  Wl,  W,  PI 

REAL  TDIFV,  FLUX,  ALFA,  K,  RHO,  CP,  TIME,  DELT,  Y,  DELY,  ERRFC 

INTEGER  COUNT,  FREQ 
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1 


*  THE  USER  WILL  READ  IN  PARAMETERS. 

WRITER,*)  ENTER  FLUX.' 

READ(*,*)  FLUX 

WRITE!*,*)  ENTER  K,  THE  THERMAL  CONDUCTIVITY.' 

READ!*,*)  K 

WRITE!*,*)  ENTER  RHO,  THE  MATERIAL  DENSITY.' 

READ!*,*)  RHO 

WRITE!*,*)  ENTER  CP,  THE  SPECIFIC  HEAT.' 

READ!*,*)  CP 

WRITE!*.*)  ENTER  Y.  THE  DISTANCE  IN  THE  Y  DIRECTION.' 

READ.  *,*)  Y 

WRITE!*,*)  ENTER  DELY.  THE  INCREMENT  IN  THE  Y  DIRECTION. 
READ' *.*)  DELY 

WRITE/ V  )  ENTER  FREO.  THE  NUMBER  OF  TIME  STEPS  BETWEEN 
WRITE!*.*)  SUCCESSIVE  PRINTINGS  OF  TIME  AND  TD1FV.' 

READ/*,*)  FREQ 

*  CONSTANTS  USED  THROUGHOUT  THE  PROGRAM 

*  NOTE:  VALUES  FOR  Al.  A2.  A3.  A4,  A5.  AND  P  ARE  FROM 

"HANDBOOK  OF  MATHEMATICAL  FUNCTIONS". 

Al  =  0.254S29592 
A  2  =  -0.2S4496736 
A3  =  1.421413741 
A4  =  -1. 453 1 52027 
A5  =  1.061405429 
P  =  0.3275911 
PI  =  3.141592654 
TIME  =  0.0 
COUNT  =  0 

* 

*  CALCULATION  OF  CONSTANTS  USED  THROUGHOUT  THE  PROGRAM 
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*  NOTE:  EQUATIONS  FOR  ALFA,  B,  C,  D.  AND  DELT  ARE  FROM 

*  "INTRODUCTION  TO  HEAT  TRANSFER".  EQUATIONS  FOR 
VI  AND  \Y1  ARE  FROM  "HANDBOOK  OF  MATHEMATICAL 

*  FUNCTIONS". 

* 

ALFA  -  K  (RHO'CP) 

B  =  2*FLUX  K*SQRT(ALFA  PI) 

C  =  FLUX*Y.'K 
D  =  Y**2  (4* ALFA) 

DELT  =  0.125*)DELY**2)  ALFA 
VI  =  P*Y  (2*SQRT(ALFA)) 

W1  =  Y  (2*SQRT)ALFA)) 

*  PRINT  STATEMENTS  FOR  VARIOUS  PARAMETERS  USED 

*  IN  PROGRAM 


FLUX  = '.FLUX 
'K-'.K 
RHO=  '.RHO 
CP=',CP 
Y  =  '.Y 

DELY  =  ,DELY 
DELT  = \DELT 


*  CALCULATION  OF  TDIFV 

* 

*  NOTE:  EQUATIONS  FOR  V.  W,  AND  ERRFC  (COMPLEMENTARY 


PRINT* 

PRINT* 

WRITER.*) 

WRITE)*.*) 

WRITE)*.*) 

WRITE)*.*) 

WRITE)*.*) 

WRITE)*,*) 

WRITE(*.*) 

WRITE)*,*) 

WRITE)*,*) 

PRINT* 

PRINT* 
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ERROR  FUNCTION)  ARE  FROM  "HANDBOOK  OF 
MATHEMATICAL  FUNCTIONS".  THE  EQUATION  FOR  TDIFV 
IS  FROM  INTRODUCTION  TO  HEAT  TRANSFER". 

10  COUNT  =  COUNT  +  1 
TIME  =  TIME  +  DELT 
V  =  1  (1  +  VI  SQRT(TIME)) 

W  =  Wl,  SQRT(TIME) 

ERRFC  =  ((Ain’)  +  (A2*V**2)  +  (A3*V**3)  +  (A4*V**4)  + 

&  (A5*V**5)  )  *  EXP(-W**2) 

TDIFV  =  B*SQRT( TIME)*EXP(-D  TIME)  -  C*ERRFC 


PRINTING  TIME  AND  TDIFF 

IF(TIME  .NE.  DELT)  GO  TO  30 
WRITE)*.*)  'TIME(SEC)  TDIFV 

WRITE)*.*)  ’ . ’ 

PRINT  20.  TIME.  TDIFV 
2  0  F  O  R  M  A  T(  1 X .  F  S .  3 . 3  X .  F  6 . 3 ) 

30  IF) COUNT  .NE.  FREQ)  GO  TO  100 
PRINT  40.  TIME.  TDIFV 
40  FORMAT(  1X.FS.3.3X.F6.3) 


*  INITIALIZING  THE  COUNTER  TO  ZERO 

* 

50  COUNT  =  0.0 

* 

*  NOTE:  THE  VALIDATION  TIME  PERIOD  WAS  ARBITRARILY  TAKEN 

*  AS  3600  SECONDS  (1  HOUR). 

* 

100  IF(TIME  .LE.  3600)  GO  TO  10 

* 


STOP 
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